Developer CD Series 1996 June: Reference Library

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 June: Reference Library / Dev.CD Jun 96 RL / Dev.CD Jun 96 RL.toast / Technical Documentation / develop / develop Issue 6 / develop Issue 6 code / TCP.sea / TCP / NewsWatcher / NW Source / Source / text.c < prev next >
MacBinary | 1995-05-23 | 29.4 KB | [TEXT/MMCC]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue May 23 22:08:19 1995, modified Tue May 23 22:08:19 1995, creator 'MMCC', type ASCII, 29324 bytes "text.c" , at 0x730c 410 bytes resource	default (weak)
`99%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	dearkID	deark: macbinary	default
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MMCC]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 74 65 78 74 2e 63 | 00 00 00 00 00 00 00 00 |..text.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 72 8c 00 | 00 01 9a ab e8 45 93 ab |.....r..|.....E..|
|00000060| e8 45 93 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.E......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a6 02 00 00 |........|........|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|000000d0| 09 74 65 78 74 2e 63 0d | 0d 09 54 68 69 73 20 6d |.text.c.|..This m|
|000000e0| 6f 64 75 6c 65 20 68 61 | 6e 64 6c 65 73 20 72 65 |odule ha|ndles re|
|000000f0| 61 64 2d 6f 6e 6c 79 20 | 74 65 78 74 20 77 69 6e |ad-only |text win|
|00000100| 64 6f 77 73 2e 0d 09 0d | 09 43 6f 70 79 72 69 67 |dows....|.Copyrig|
|00000110| 68 74 20 a9 20 31 39 39 | 34 2d 31 39 39 35 2c 20 |ht . 199|4-1995, |
|00000120| 4e 6f 72 74 68 77 65 73 | 74 65 72 6e 20 55 6e 69 |Northwes|tern Uni|
|00000130| 76 65 72 73 69 74 79 2e | 0d 0d 2d 2d 2d 2d 2d 2d |versity.|..------|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2a 2f | 0d 0d 23 69 6e 63 6c 75 |------*/|..#inclu|
|00000190| 64 65 20 3c 73 74 72 69 | 6e 67 2e 68 3e 0d 23 69 |de <stri|ng.h>.#i|
|000001a0| 6e 63 6c 75 64 65 20 3c | 63 74 79 70 65 2e 68 3e |nclude <|ctype.h>|
|000001b0| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 22 67 6c 6f 62 |..#inclu|de "glob|
|000001c0| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 74 65 |.h".#inc|lude "te|
|000001d0| 78 74 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |xt.h".#i|nclude "|
|000001e0| 6d 65 6e 75 73 2e 68 22 | 0d 23 69 6e 63 6c 75 64 |menus.h"|.#includ|
|000001f0| 65 20 22 74 65 73 63 72 | 6f 6c 6c 2e 68 22 0d 23 |e "tescr|oll.h".#|
|00000200| 69 6e 63 6c 75 64 65 20 | 22 75 72 6c 2e 68 22 0d |include |"url.h".|
|00000210| 23 69 6e 63 6c 75 64 65 | 20 22 6e 65 77 73 77 61 |#include| "newswa|
|00000220| 74 63 68 65 72 2e 68 22 | 0d 23 69 6e 63 6c 75 64 |tcher.h"|.#includ|
|00000230| 65 20 22 64 72 61 77 75 | 74 69 6c 2e 68 22 0d 23 |e "drawu|til.h".#|
|00000240| 69 6e 63 6c 75 64 65 20 | 22 77 69 6e 64 75 74 69 |include |"winduti|
|00000250| 6c 2e 68 22 0d 23 69 6e | 63 6c 75 64 65 20 22 6d |l.h".#in|clude "m|
|00000260| 65 6d 75 74 69 6c 2e 68 | 22 0d 23 69 6e 63 6c 75 |emutil.h|".#inclu|
|00000270| 64 65 20 22 64 69 61 6c | 6f 67 2e 68 22 0d 23 69 |de "dial|og.h".#i|
|00000280| 6e 63 6c 75 64 65 20 22 | 74 65 75 74 69 6c 2e 68 |nclude "|teutil.h|
|00000290| 22 0d 23 69 6e 63 6c 75 | 64 65 20 22 77 69 6e 64 |".#inclu|de "wind|
|000002a0| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 61 62 |.h".#inc|lude "ab|
|000002b0| 6f 75 74 2e 68 22 0d 23 | 69 6e 63 6c 75 64 65 20 |out.h".#|include |
|000002c0| 22 64 72 61 67 75 74 69 | 6c 2e 68 22 0d 23 69 6e |"draguti|l.h".#in|
|000002d0| 63 6c 75 64 65 20 22 70 | 72 69 6e 74 2e 68 22 0d |clude "p|rint.h".|
|000002e0| 23 69 6e 63 6c 75 64 65 | 20 22 73 74 61 74 75 73 |#include| "status|
|000002f0| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 66 69 |.h".#inc|lude "fi|
|00000300| 6c 65 75 74 69 6c 2e 68 | 22 0d 23 69 6e 63 6c 75 |leutil.h|".#inclu|
|00000310| 64 65 20 22 73 74 72 75 | 74 69 6c 2e 68 22 0d 23 |de "stru|til.h".#|
|00000320| 69 6e 63 6c 75 64 65 20 | 22 73 66 75 74 69 6c 2e |include |"sfutil.|
|00000330| 68 22 0d 23 69 6e 63 6c | 75 64 65 20 22 67 72 6f |h".#incl|ude "gro|
|00000340| 75 70 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |up.h".#i|nclude "|
|00000350| 6b 65 79 2e 68 22 0d 23 | 69 6e 63 6c 75 64 65 20 |key.h".#|include |
|00000360| 22 69 63 2e 68 22 0d 23 | 69 6e 63 6c 75 64 65 20 |"ic.h".#|include |
|00000370| 22 68 65 6c 70 2e 68 22 | 0d 0d 0d 0d 23 64 65 66 |"help.h"|....#def|
|00000380| 69 6e 65 20 6b 4d 69 6e | 57 69 6e 64 6f 77 57 69 |ine kMin|WindowWi|
|00000390| 64 74 68 09 09 34 31 30 | 09 09 09 2f 2a 20 6d 69 |dth..410|.../* mi|
|000003a0| 6e 69 6d 75 6d 20 77 69 | 6e 64 6f 77 20 77 69 64 |nimum wi|ndow wid|
|000003b0| 74 68 20 2a 2f 0d 0d 0d | 0d 73 74 61 74 69 63 20 |th */...|.static |
|000003c0| 54 45 43 6c 69 63 6b 4c | 6f 6f 70 55 50 50 20 67 |TEClickL|oopUPP g|
|000003d0| 41 75 74 6f 53 63 72 6f | 6c 6c 55 50 50 3b 0d 73 |AutoScro|llUPP;.s|
|000003e0| 74 61 74 69 63 20 43 6f | 6e 74 72 6f 6c 41 63 74 |tatic Co|ntrolAct|
|000003f0| 69 6f 6e 55 50 50 20 67 | 53 63 72 6f 6c 6c 41 63 |ionUPP g|ScrollAc|
|00000400| 74 69 6f 6e 55 50 50 3b | 0d 0d 0d 0d 2f 2a 2d 2d |tionUPP;|..../*--|
|00000410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 47 65 74 54 |--------|--..GetT|
|00000460| 65 78 74 52 65 63 74 20 | 0d 09 0d 09 43 6f 6d 70 |extRect |....Comp|
|00000470| 75 74 65 20 74 68 65 20 | 22 74 65 78 74 22 20 72 |ute the |"text" r|
|00000480| 65 63 74 61 6e 67 6c 65 | 20 6f 66 20 61 20 74 65 |ectangle| of a te|
|00000490| 78 74 20 77 69 6e 64 6f | 77 0d 09 09 09 0d 09 45 |xt windo|w......E|
|000004a0| 6e 74 72 79 3a 09 77 69 | 6e 64 20 3d 20 70 6f 69 |ntry:.wi|nd = poi|
|000004b0| 6e 74 65 72 20 74 6f 20 | 74 65 78 74 20 77 69 6e |nter to |text win|
|000004c0| 64 6f 77 2e 0d 09 09 09 | 0d 09 45 78 69 74 3a 09 |dow.....|..Exit:.|
|000004d0| 2a 74 65 78 74 52 65 63 | 74 20 3d 20 74 65 78 74 |*textRec|t = text|
|000004e0| 20 72 65 63 74 61 6e 67 | 6c 65 2e 0d 09 0d 09 54 | rectang|le.....T|
|000004f0| 68 65 20 22 74 65 78 74 | 22 20 72 65 63 74 61 6e |he "text|" rectan|
|00000500| 67 6c 65 20 69 73 20 74 | 68 65 20 61 72 65 61 20 |gle is t|he area |
|00000510| 6f 66 20 74 68 65 20 77 | 69 6e 64 6f 77 20 77 68 |of the w|indow wh|
|00000520| 65 72 65 20 74 68 65 20 | 74 65 78 74 20 69 73 20 |ere the |text is |
|00000530| 0d 09 64 69 73 70 6c 61 | 79 65 64 3a 20 74 68 65 |..displa|yed: the|
|00000540| 20 77 69 6e 64 6f 77 20 | 70 6f 72 74 72 65 63 74 | window |portrect|
|00000550| 2c 20 6d 69 6e 75 73 20 | 74 68 65 20 70 61 6e 65 |, minus |the pane|
|00000560| 6c 20 61 72 65 61 2c 20 | 6d 69 6e 75 73 20 74 68 |l area, |minus th|
|00000570| 65 20 73 63 72 6f 6c 6c | 0d 09 62 61 72 73 2c 20 |e scroll|..bars, |
|00000580| 6d 69 6e 75 73 20 74 68 | 65 20 74 65 78 74 20 6d |minus th|e text m|
|00000590| 61 72 67 69 6e 2e 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |argin..-|--------|
|000005a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005e0| 2d 2d 2d 2a 2f 0d 0d 73 | 74 61 74 69 63 20 76 6f |---*/..s|tatic vo|
|000005f0| 69 64 20 47 65 74 54 65 | 78 74 52 65 63 74 20 28 |id GetTe|xtRect (|
|00000600| 57 69 6e 64 6f 77 50 74 | 72 20 77 69 6e 64 2c 20 |WindowPt|r wind, |
|00000610| 52 65 63 74 20 2a 74 65 | 78 74 52 65 63 74 29 0d |Rect *te|xtRect).|
|00000620| 7b 0d 09 54 57 69 6e 64 | 6f 77 20 2a 2a 69 6e 66 |{..TWind|ow **inf|
|00000630| 6f 3b 0d 0d 09 69 6e 66 | 6f 20 3d 20 28 54 57 69 |o;...inf|o = (TWi|
|00000640| 6e 64 6f 77 2a 2a 29 47 | 65 74 57 52 65 66 43 6f |ndow**)G|etWRefCo|
|00000650| 6e 28 77 69 6e 64 29 3b | 0d 09 2a 74 65 78 74 52 |n(wind);|..*textR|
|00000660| 65 63 74 20 3d 20 77 69 | 6e 64 2d 3e 70 6f 72 74 |ect = wi|nd->port|
|00000670| 52 65 63 74 3b 0d 09 74 | 65 78 74 52 65 63 74 2d |Rect;..t|extRect-|
|00000680| 3e 74 6f 70 20 2b 3d 20 | 28 2a 2a 69 6e 66 6f 29 |>top += |(**info)|
|00000690| 2e 70 61 6e 65 6c 48 65 | 69 67 68 74 3b 0d 09 74 |.panelHe|ight;..t|
|000006a0| 65 78 74 52 65 63 74 2d | 3e 62 6f 74 74 6f 6d 20 |extRect-|>bottom |
|000006b0| 2d 3d 20 31 35 3b 0d 09 | 74 65 78 74 52 65 63 74 |-= 15;..|textRect|
|000006c0| 2d 3e 72 69 67 68 74 20 | 2d 3d 20 31 35 3b 0d 09 |->right |-= 15;..|
|000006d0| 49 6e 73 65 74 52 65 63 | 74 28 74 65 78 74 52 65 |InsetRec|t(textRe|
|000006e0| 63 74 2c 20 6b 54 65 78 | 74 4d 61 72 67 69 6e 2c |ct, kTex|tMargin,|
|000006f0| 20 6b 54 65 78 74 4d 61 | 72 67 69 6e 29 3b 0d 7d | kTextMa|rgin);.}|
|00000700| 0d 0d 0d 0d 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..../*--|--------|
|00000710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000750| 2d 2d 0d 09 46 69 78 48 | 65 69 67 68 74 20 0d 09 |--..FixH|eight ..|
|00000760| 0d 09 52 6f 75 6e 64 20 | 64 6f 77 6e 20 77 69 6e |..Round |down win|
|00000770| 64 6f 77 20 68 65 69 67 | 68 74 20 74 6f 20 61 6e |dow heig|ht to an|
|00000780| 20 65 78 61 63 74 20 6d | 75 6c 74 69 70 6c 65 20 | exact m|ultiple |
|00000790| 6f 66 20 6c 69 6e 65 73 | 2e 0d 09 09 09 0d 09 45 |of lines|.......E|
|000007a0| 6e 74 72 79 3a 09 77 69 | 6e 64 20 3d 20 70 6f 69 |ntry:.wi|nd = poi|
|000007b0| 6e 74 65 72 20 74 6f 20 | 74 65 78 74 20 77 69 6e |nter to |text win|
|000007c0| 64 6f 77 2e 0d 09 09 09 | 2a 68 65 69 67 68 74 20 |dow.....|*height |
|000007d0| 3d 20 77 69 6e 64 6f 77 | 20 68 65 69 67 68 74 2e |= window| height.|
|000007e0| 0d 09 09 09 0d 09 45 78 | 69 74 3a 09 2a 68 65 69 |......Ex|it:.*hei|
|000007f0| 67 68 74 20 3d 20 61 64 | 6a 75 73 74 65 64 20 77 |ght = ad|justed w|
|00000800| 69 6e 64 6f 77 20 68 65 | 69 67 68 74 0d 2d 2d 2d |indow he|ight.---|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 73 74 61 |--------|-*/..sta|
|00000860| 74 69 63 20 76 6f 69 64 | 20 46 69 78 48 65 69 67 |tic void| FixHeig|
|00000870| 68 74 20 28 57 69 6e 64 | 6f 77 50 74 72 20 77 69 |ht (Wind|owPtr wi|
|00000880| 6e 64 2c 20 73 68 6f 72 | 74 20 2a 68 65 69 67 68 |nd, shor|t *heigh|
|00000890| 74 29 0d 7b 0d 09 54 57 | 69 6e 64 6f 77 20 2a 2a |t).{..TW|indow **|
|000008a0| 69 6e 66 6f 3b 0d 09 73 | 68 6f 72 74 20 70 61 6e |info;..s|hort pan|
|000008b0| 65 6c 48 65 69 67 68 74 | 2c 20 6c 69 6e 65 48 65 |elHeight|, lineHe|
|000008c0| 69 67 68 74 2c 20 61 64 | 6a 75 73 74 3b 0d 0d 09 |ight, ad|just;...|
|000008d0| 69 6e 66 6f 20 3d 20 28 | 54 57 69 6e 64 6f 77 2a |info = (|TWindow*|
|000008e0| 2a 29 47 65 74 57 52 65 | 66 43 6f 6e 28 77 69 6e |*)GetWRe|fCon(win|
|000008f0| 64 29 3b 0d 09 70 61 6e | 65 6c 48 65 69 67 68 74 |d);..pan|elHeight|
|00000900| 20 3d 20 28 2a 2a 69 6e | 66 6f 29 2e 70 61 6e 65 | = (**in|fo).pane|
|00000910| 6c 48 65 69 67 68 74 3b | 0d 09 6c 69 6e 65 48 65 |lHeight;|..lineHe|
|00000920| 69 67 68 74 20 3d 20 47 | 65 74 46 6f 6e 74 4c 69 |ight = G|etFontLi|
|00000930| 6e 65 48 65 69 67 68 74 | 28 77 69 6e 64 29 3b 0d |neHeight|(wind);.|
|00000940| 09 61 64 6a 75 73 74 20 | 3d 20 70 61 6e 65 6c 48 |.adjust |= panelH|
|00000950| 65 69 67 68 74 20 2b 20 | 31 35 20 2b 20 32 2a 6b |eight + |15 + 2*k|
|00000960| 54 65 78 74 4d 61 72 67 | 69 6e 3b 0d 09 2a 68 65 |TextMarg|in;..*he|
|00000970| 69 67 68 74 20 3d 20 28 | 2a 68 65 69 67 68 74 20 |ight = (|*height |
|00000980| 2d 20 61 64 6a 75 73 74 | 29 20 2f 20 6c 69 6e 65 |- adjust|) / line|
|00000990| 48 65 69 67 68 74 20 2a | 20 6c 69 6e 65 48 65 69 |Height *| lineHei|
|000009a0| 67 68 74 20 2b 20 61 64 | 6a 75 73 74 3b 0d 7d 0d |ght + ad|just;.}.|
|000009b0| 0d 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.../*---|--------|
|000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a00| 2d 0d 09 4d 69 6e 48 65 | 69 67 68 74 20 0d 09 0d |-..MinHe|ight ...|
|00000a10| 09 43 6f 6d 70 75 74 65 | 20 74 68 65 20 6d 69 6e |.Compute| the min|
|00000a20| 69 6d 75 6d 20 68 65 69 | 67 68 74 20 6f 66 20 61 |imum hei|ght of a|
|00000a30| 20 74 65 78 74 20 77 69 | 6e 64 6f 77 2e 0d 09 09 | text wi|ndow....|
|00000a40| 09 0d 09 45 6e 74 72 79 | 3a 09 77 69 6e 64 20 3d |...Entry|:.wind =|
|00000a50| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 74 65 78 74 | pointer| to text|
|00000a60| 20 77 69 6e 64 6f 77 2e | 0d 2d 2d 2d 2d 2d 2d 2d | window.|.-------|
|00000a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ab0| 2d 2d 2d 2d 2d 2a 2f 0d | 0d 73 74 61 74 69 63 20 |-----*/.|.static |
|00000ac0| 73 68 6f 72 74 20 4d 69 | 6e 48 65 69 67 68 74 20 |short Mi|nHeight |
|00000ad0| 28 57 69 6e 64 6f 77 50 | 74 72 20 77 69 6e 64 29 |(WindowP|tr wind)|
|00000ae0| 0d 7b 0d 09 54 57 69 6e | 64 6f 77 20 2a 2a 69 6e |.{..TWin|dow **in|
|00000af0| 66 6f 3b 0d 09 73 68 6f | 72 74 20 6c 69 6e 65 48 |fo;..sho|rt lineH|
|00000b00| 65 69 67 68 74 2c 20 68 | 65 69 67 68 74 2c 20 65 |eight, h|eight, e|
|00000b10| 78 74 72 61 3b 0d 09 0d | 09 69 6e 66 6f 20 3d 20 |xtra;...|.info = |
|00000b20| 28 54 57 69 6e 64 6f 77 | 2a 2a 29 47 65 74 57 52 |(TWindow|**)GetWR|
|00000b30| 65 66 43 6f 6e 28 77 69 | 6e 64 29 3b 0d 09 6c 69 |efCon(wi|nd);..li|
|00000b40| 6e 65 48 65 69 67 68 74 | 20 3d 20 47 65 74 46 6f |neHeight| = GetFo|
|00000b50| 6e 74 4c 69 6e 65 48 65 | 69 67 68 74 28 77 69 6e |ntLineHe|ight(win|
|00000b60| 64 29 3b 0d 09 65 78 74 | 72 61 20 3d 20 6c 69 6e |d);..ext|ra = lin|
|00000b70| 65 48 65 69 67 68 74 20 | 2b 20 31 35 20 2b 20 32 |eHeight |+ 15 + 2|
|00000b80| 2a 6b 54 65 78 74 4d 61 | 72 67 69 6e 3b 0d 09 69 |*kTextMa|rgin;..i|
|00000b90| 66 20 28 65 78 74 72 61 | 20 3c 20 36 35 29 20 65 |f (extra| < 65) e|
|00000ba0| 78 74 72 61 20 3d 20 36 | 35 20 2b 20 6c 69 6e 65 |xtra = 6|5 + line|
|00000bb0| 48 65 69 67 68 74 3b 0d | 09 68 65 69 67 68 74 20 |Height;.|.height |
|00000bc0| 3d 20 28 2a 2a 69 6e 66 | 6f 29 2e 70 61 6e 65 6c |= (**inf|o).panel|
|00000bd0| 48 65 69 67 68 74 20 2b | 20 65 78 74 72 61 3b 0d |Height +| extra;.|
|00000be0| 09 46 69 78 48 65 69 67 | 68 74 28 77 69 6e 64 2c |.FixHeig|ht(wind,|
|00000bf0| 20 26 68 65 69 67 68 74 | 29 3b 0d 09 72 65 74 75 | &height|);..retu|
|00000c00| 72 6e 20 68 65 69 67 68 | 74 3b 0d 7d 0d 0d 0d 0d |rn heigh|t;.}....|
|00000c10| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|00000c60| 53 63 72 6f 6c 6c 41 63 | 74 69 6f 6e 20 0d 09 0d |ScrollAc|tion ...|
|00000c70| 09 56 65 72 74 69 63 61 | 6c 20 73 63 72 6f 6c 6c |.Vertica|l scroll|
|00000c80| 20 62 61 72 20 61 63 74 | 69 6f 6e 20 70 72 6f 63 | bar act|ion proc|
|00000c90| 2e 0d 0d 09 45 6e 74 72 | 79 3a 09 76 53 63 72 6f |....Entr|y:.vScro|
|00000ca0| 6c 6c 20 3d 20 68 61 6e | 64 6c 65 20 74 6f 20 76 |ll = han|dle to v|
|00000cb0| 65 72 74 69 63 61 6c 20 | 73 63 72 6f 6c 6c 20 62 |ertical |scroll b|
|00000cc0| 61 72 20 63 6f 6e 74 72 | 6f 6c 2e 0d 09 09 09 70 |ar contr|ol.....p|
|00000cd0| 61 72 74 20 3d 20 70 61 | 72 74 20 63 6f 64 65 2e |art = pa|rt code.|
|00000ce0| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00000cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 2f 0d |--------|-----*/.|
|00000d30| 0d 73 74 61 74 69 63 20 | 70 61 73 63 61 6c 20 76 |.static |pascal v|
|00000d40| 6f 69 64 20 53 63 72 6f | 6c 6c 41 63 74 69 6f 6e |oid Scro|llAction|
|00000d50| 20 28 43 6f 6e 74 72 6f | 6c 48 61 6e 64 6c 65 20 | (Contro|lHandle |
|00000d60| 76 53 63 72 6f 6c 6c 2c | 20 73 68 6f 72 74 20 70 |vScroll,| short p|
|00000d70| 61 72 74 29 0d 7b 0d 09 | 57 69 6e 64 6f 77 50 74 |art).{..|WindowPt|
|00000d80| 72 20 77 69 6e 64 3b 0d | 09 54 57 69 6e 64 6f 77 |r wind;.|.TWindow|
|00000d90| 20 2a 2a 69 6e 66 6f 3b | 0d 09 54 45 48 61 6e 64 | **info;|..TEHand|
|00000da0| 6c 65 20 74 68 65 54 45 | 3b 0d 09 0d 09 77 69 6e |le theTE|;....win|
|00000db0| 64 20 3d 20 28 2a 2a 76 | 53 63 72 6f 6c 6c 29 2e |d = (**v|Scroll).|
|00000dc0| 63 6f 6e 74 72 6c 4f 77 | 6e 65 72 3b 0d 09 69 6e |contrlOw|ner;..in|
|00000dd0| 66 6f 20 3d 20 28 54 57 | 69 6e 64 6f 77 2a 2a 29 |fo = (TW|indow**)|
|00000de0| 47 65 74 57 52 65 66 43 | 6f 6e 28 77 69 6e 64 29 |GetWRefC|on(wind)|
|00000df0| 3b 0d 09 74 68 65 54 45 | 20 3d 20 28 2a 2a 69 6e |;..theTE| = (**in|
|00000e00| 66 6f 29 2e 74 68 65 54 | 45 3b 0d 09 54 45 53 63 |fo).theT|E;..TESc|
|00000e10| 72 6f 6c 6c 53 63 72 6f | 6c 6c 42 79 50 61 72 74 |rollScro|llByPart|
|00000e20| 43 6f 64 65 28 74 68 65 | 54 45 2c 20 76 53 63 72 |Code(the|TE, vScr|
|00000e30| 6f 6c 6c 2c 20 70 61 72 | 74 29 3b 0d 7d 0d 0d 0d |oll, par|t);.}...|
|00000e40| 0d 2f 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |./*-----|--------|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000e90| 09 41 75 74 6f 53 63 72 | 6f 6c 6c 20 0d 09 0d 09 |.AutoScr|oll ....|
|00000ea0| 48 61 6e 64 6c 65 20 74 | 65 78 74 20 77 69 6e 64 |Handle t|ext wind|
|00000eb0| 6f 77 20 61 75 74 6f 73 | 63 72 6f 6c 6c 69 6e 67 |ow autos|crolling|
|00000ec0| 2e 0d 09 09 09 0d 09 45 | 78 69 74 3a 09 66 75 6e |.......E|xit:.fun|
|00000ed0| 63 74 69 6f 6e 20 72 65 | 73 75 6c 74 20 3d 20 74 |ction re|sult = t|
|00000ee0| 72 75 65 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |rue.----|--------|
|00000ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f30| 2a 2f 0d 0d 73 74 61 74 | 69 63 20 70 61 73 63 61 |*/..stat|ic pasca|
|00000f40| 6c 20 42 6f 6f 6c 65 61 | 6e 20 41 75 74 6f 53 63 |l Boolea|n AutoSc|
|00000f50| 72 6f 6c 6c 20 28 76 6f | 69 64 29 0d 7b 0d 09 57 |roll (vo|id).{..W|
|00000f60| 69 6e 64 6f 77 50 74 72 | 20 77 69 6e 64 3b 0d 09 |indowPtr| wind;..|
|00000f70| 54 57 69 6e 64 6f 77 20 | 2a 2a 69 6e 66 6f 3b 0d |TWindow |**info;.|
|00000f80| 09 43 6f 6e 74 72 6f 6c | 48 61 6e 64 6c 65 20 76 |.Control|Handle v|
|00000f90| 53 63 72 6f 6c 6c 3b 0d | 09 54 45 48 61 6e 64 6c |Scroll;.|.TEHandl|
|00000fa0| 65 20 74 68 65 54 45 3b | 0d 0d 09 77 69 6e 64 20 |e theTE;|...wind |
|00000fb0| 3d 20 4d 79 46 72 6f 6e | 74 57 69 6e 64 6f 77 28 |= MyFron|tWindow(|
|00000fc0| 29 3b 0d 09 69 66 20 28 | 77 69 6e 64 20 3d 3d 20 |);..if (|wind == |
|00000fd0| 6e 69 6c 29 20 72 65 74 | 75 72 6e 20 74 72 75 65 |nil) ret|urn true|
|00000fe0| 3b 0d 09 69 6e 66 6f 20 | 3d 20 28 54 57 69 6e 64 |;..info |= (TWind|
|00000ff0| 6f 77 2a 2a 29 47 65 74 | 57 52 65 66 43 6f 6e 28 |ow**)Get|WRefCon(|
|00001000| 77 69 6e 64 29 3b 0d 09 | 76 53 63 72 6f 6c 6c 20 |wind);..|vScroll |
|00001010| 3d 20 28 2a 2a 69 6e 66 | 6f 29 2e 76 53 63 72 6f |= (**inf|o).vScro|
|00001020| 6c 6c 3b 0d 09 74 68 65 | 54 45 20 3d 20 28 2a 2a |ll;..the|TE = (**|
|00001030| 69 6e 66 6f 29 2e 74 68 | 65 54 45 3b 0d 09 54 45 |info).th|eTE;..TE|
|00001040| 53 63 72 6f 6c 6c 41 75 | 74 6f 53 63 72 6f 6c 6c |ScrollAu|toScroll|
|00001050| 28 74 68 65 54 45 2c 20 | 76 53 63 72 6f 6c 6c 29 |(theTE, |vScroll)|
|00001060| 3b 0d 09 72 65 74 75 72 | 6e 20 74 72 75 65 3b 0d |;..retur|n true;.|
|00001070| 7d 0d 0d 0d 0d 2f 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}..../*-|--------|
|00001080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010c0| 2d 2d 2d 0d 09 52 65 73 | 69 7a 65 43 6f 6e 74 65 |---..Res|izeConte|
|000010d0| 6e 74 73 20 0d 09 0d 09 | 41 64 6a 75 73 74 20 61 |nts ....|Adjust a|
|000010e0| 20 74 65 78 74 20 77 69 | 6e 64 6f 77 27 73 20 63 | text wi|ndow's c|
|000010f0| 6f 6e 74 65 6e 74 73 20 | 61 66 74 65 72 20 61 20 |ontents |after a |
|00001100| 77 69 6e 64 6f 77 20 73 | 69 7a 65 20 63 68 61 6e |window s|ize chan|
|00001110| 67 65 20 28 67 72 6f 77 | 0d 09 6f 72 20 7a 6f 6f |ge (grow|..or zoo|
|00001120| 6d 29 2e 0d 09 09 09 0d | 09 45 6e 74 72 79 3a 09 |m)......|.Entry:.|
|00001130| 77 69 6e 64 20 3d 20 70 | 6f 69 6e 74 65 72 20 74 |wind = p|ointer t|
|00001140| 6f 20 74 65 78 74 20 77 | 69 6e 64 6f 77 2e 0d 2d |o text w|indow..-|
|00001150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 2f 0d 0d 73 |--------|---*/..s|
|000011a0| 74 61 74 69 63 20 76 6f | 69 64 20 52 65 73 69 7a |tatic vo|id Resiz|
|000011b0| 65 43 6f 6e 74 65 6e 74 | 73 20 28 57 69 6e 64 6f |eContent|s (Windo|
|000011c0| 77 50 74 72 20 77 69 6e | 64 29 0d 7b 0d 09 54 57 |wPtr win|d).{..TW|
|000011d0| 69 6e 64 6f 77 20 2a 2a | 69 6e 66 6f 3b 0d 09 73 |indow **|info;..s|
|000011e0| 68 6f 72 74 20 77 69 64 | 74 68 2c 20 68 65 69 67 |hort wid|th, heig|
|000011f0| 68 74 2c 20 70 61 6e 65 | 6c 48 65 69 67 68 74 3b |ht, pane|lHeight;|
|00001200| 0d 09 43 6f 6e 74 72 6f | 6c 48 61 6e 64 6c 65 20 |..Contro|lHandle |
|00001210| 76 53 63 72 6f 6c 6c 3b | 0d 09 54 45 48 61 6e 64 |vScroll;|..TEHand|
|00001220| 6c 65 20 74 68 65 54 45 | 3b 0d 09 52 65 63 74 20 |le theTE|;..Rect |
|00001230| 72 3b 0d 0d 09 69 6e 66 | 6f 20 3d 20 28 54 57 69 |r;...inf|o = (TWi|
|00001240| 6e 64 6f 77 2a 2a 29 47 | 65 74 57 52 65 66 43 6f |ndow**)G|etWRefCo|
|00001250| 6e 28 77 69 6e 64 29 3b | 0d 09 70 61 6e 65 6c 48 |n(wind);|..panelH|
|00001260| 65 69 67 68 74 20 3d 20 | 28 2a 2a 69 6e 66 6f 29 |eight = |(**info)|
|00001270| 2e 70 61 6e 65 6c 48 65 | 69 67 68 74 3b 0d 09 76 |.panelHe|ight;..v|
|00001280| 53 63 72 6f 6c 6c 20 3d | 20 28 2a 2a 69 6e 66 6f |Scroll =| (**info|
|00001290| 29 2e 76 53 63 72 6f 6c | 6c 3b 0d 09 74 68 65 54 |).vScrol|l;..theT|
|000012a0| 45 20 3d 20 28 2a 2a 69 | 6e 66 6f 29 2e 74 68 65 |E = (**i|nfo).the|
|000012b0| 54 45 3b 0d 09 77 69 64 | 74 68 20 3d 20 77 69 6e |TE;..wid|th = win|
|000012c0| 64 2d 3e 70 6f 72 74 52 | 65 63 74 2e 72 69 67 68 |d->portR|ect.righ|
|000012d0| 74 3b 0d 09 68 65 69 67 | 68 74 20 3d 20 77 69 6e |t;..heig|ht = win|
|000012e0| 64 2d 3e 70 6f 72 74 52 | 65 63 74 2e 62 6f 74 74 |d->portR|ect.bott|
|000012f0| 6f 6d 3b 0d 09 0d 09 53 | 65 74 52 65 63 74 28 26 |om;....S|etRect(&|
|00001300| 72 2c 20 77 69 64 74 68 | 2d 31 35 2c 20 70 61 6e |r, width|-15, pan|
|00001310| 65 6c 48 65 69 67 68 74 | 2d 31 2c 20 77 69 64 74 |elHeight|-1, widt|
|00001320| 68 2b 31 2c 20 68 65 69 | 67 68 74 2d 31 34 29 3b |h+1, hei|ght-14);|
|00001330| 0d 09 28 2a 2a 76 53 63 | 72 6f 6c 6c 29 2e 63 6f |..(**vSc|roll).co|
|00001340| 6e 74 72 6c 52 65 63 74 | 20 3d 20 72 3b 0d 09 0d |ntrlRect| = r;...|
|00001350| 09 47 65 74 54 65 78 74 | 52 65 63 74 28 77 69 6e |.GetText|Rect(win|
|00001360| 64 2c 20 26 72 29 3b 0d | 09 28 2a 2a 74 68 65 54 |d, &r);.|.(**theT|
|00001370| 45 29 2e 76 69 65 77 52 | 65 63 74 20 3d 20 28 2a |E).viewR|ect = (*|
|00001380| 2a 74 68 65 54 45 29 2e | 64 65 73 74 52 65 63 74 |*theTE).|destRect|
|00001390| 20 3d 20 72 3b 0d 09 54 | 45 43 61 6c 54 65 78 74 | = r;..T|ECalText|
|000013a0| 28 74 68 65 54 45 29 3b | 0d 09 53 65 74 43 6f 6e |(theTE);|..SetCon|
|000013b0| 74 72 6f 6c 56 61 6c 75 | 65 28 76 53 63 72 6f 6c |trolValu|e(vScrol|
|000013c0| 6c 2c 20 30 29 3b 0d 09 | 54 45 53 63 72 6f 6c 6c |l, 0);..|TEScroll|
|000013d0| 41 64 6a 75 73 74 53 63 | 72 6f 6c 6c 4d 61 78 28 |AdjustSc|rollMax(|
|000013e0| 74 68 65 54 45 2c 20 76 | 53 63 72 6f 6c 6c 29 3b |theTE, v|Scroll);|
|000013f0| 0d 09 54 45 53 63 72 6f | 6c 6c 53 63 72 6f 6c 6c |..TEScro|llScroll|
|00001400| 53 65 6c 65 63 74 69 6f | 6e 49 6e 74 6f 56 69 65 |Selectio|nIntoVie|
|00001410| 77 28 74 68 65 54 45 2c | 20 76 53 63 72 6f 6c 6c |w(theTE,| vScroll|
|00001420| 29 3b 0d 09 0d 09 49 6e | 76 61 6c 52 65 63 74 28 |);....In|valRect(|
|00001430| 26 77 69 6e 64 2d 3e 70 | 6f 72 74 52 65 63 74 29 |&wind->p|ortRect)|
|00001440| 3b 0d 7d 0d 0d 0d 0d 2f | 2a 2d 2d 2d 2d 2d 2d 2d |;.}..../|*-------|
|00001450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001490| 2d 2d 2d 2d 2d 0d 09 4d | 61 6b 65 4e 65 77 54 65 |-----..M|akeNewTe|
|000014a0| 78 74 57 69 6e 64 6f 77 | 0d 09 0d 09 43 72 65 61 |xtWindow|....Crea|
|000014b0| 74 65 20 61 20 6e 65 77 | 20 74 65 78 74 20 77 69 |te a new| text wi|
|000014c0| 6e 64 6f 77 2e 0d 09 0d | 09 45 6e 74 72 79 3a 09 |ndow....|.Entry:.|
|000014d0| 74 69 74 6c 65 20 3d 20 | 77 69 6e 64 6f 77 20 74 |title = |window t|
|000014e0| 69 74 6c 65 2c 20 50 2d | 66 6f 72 6d 61 74 2e 0d |itle, P-|format..|
|000014f0| 09 09 09 70 61 6e 65 6c | 48 65 69 67 68 74 20 3d |...panel|Height =|
|00001500| 20 70 61 6e 65 6c 20 68 | 65 69 67 68 74 2e 0d 09 | panel h|eight...|
|00001510| 09 09 64 72 61 77 50 61 | 6e 65 6c 20 3d 20 70 6f |..drawPa|nel = po|
|00001520| 69 6e 74 65 72 20 74 6f | 20 70 61 6e 65 6c 20 64 |inter to| panel d|
|00001530| 72 61 77 69 6e 67 20 66 | 75 6e 63 74 69 6f 6e 2c |rawing f|unction,|
|00001540| 20 6f 72 20 6e 69 6c 20 | 69 66 20 6e 6f 6e 65 2e | or nil |if none.|
|00001550| 0d 09 09 09 74 65 78 74 | 20 3d 20 68 61 6e 64 6c |....text| = handl|
|00001560| 65 20 74 6f 20 74 65 78 | 74 2e 0d 09 09 09 09 0d |e to tex|t.......|
|00001570| 09 45 78 69 74 3a 09 66 | 75 6e 63 74 69 6f 6e 20 |.Exit:.f|unction |
|00001580| 72 65 73 75 6c 74 20 3d | 20 65 72 72 6f 72 20 63 |result =| error c|
|00001590| 6f 64 65 2e 0d 09 09 09 | 2a 74 68 65 57 69 6e 64 |ode.....|*theWind|
|000015a0| 6f 77 20 3d 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |ow = poi|nter to |
|000015b0| 6e 65 77 20 77 69 6e 64 | 6f 77 2e 0d 2d 2d 2d 2d |new wind|ow..----|
|000015c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001600| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 4f 53 45 72 |--------|*/..OSEr|
|00001610| 72 20 4d 61 6b 65 4e 65 | 77 54 65 78 74 57 69 6e |r MakeNe|wTextWin|
|00001620| 64 6f 77 20 28 53 74 72 | 69 6e 67 50 74 72 20 74 |dow (Str|ingPtr t|
|00001630| 69 74 6c 65 2c 20 73 68 | 6f 72 74 20 70 61 6e 65 |itle, sh|ort pane|
|00001640| 6c 48 65 69 67 68 74 2c | 20 0d 09 76 6f 69 64 20 |lHeight,| ..void |
|00001650| 28 2a 64 72 61 77 50 61 | 6e 65 6c 29 28 57 69 6e |(*drawPa|nel)(Win|
|00001660| 64 6f 77 50 74 72 29 2c | 20 48 61 6e 64 6c 65 20 |dowPtr),| Handle |
|00001670| 74 65 78 74 2c 20 57 69 | 6e 64 6f 77 50 74 72 20 |text, Wi|ndowPtr |
|00001680| 2a 74 68 65 57 69 6e 64 | 6f 77 29 0d 7b 0d 09 73 |*theWind|ow).{..s|
|00001690| 68 6f 72 74 20 77 69 64 | 74 68 2c 20 68 65 69 67 |hort wid|th, heig|
|000016a0| 68 74 3b 0d 09 57 69 6e | 64 6f 77 50 74 72 20 77 |ht;..Win|dowPtr w|
|000016b0| 69 6e 64 20 3d 20 6e 69 | 6c 3b 0d 09 54 57 69 6e |ind = ni|l;..TWin|
|000016c0| 64 6f 77 20 2a 2a 69 6e | 66 6f 3b 0d 09 52 65 63 |dow **in|fo;..Rec|
|000016d0| 74 20 72 3b 0d 09 54 45 | 48 61 6e 64 6c 65 20 74 |t r;..TE|Handle t|
|000016e0| 68 65 54 45 3b 0d 09 43 | 6f 6e 74 72 6f 6c 48 61 |heTE;..C|ontrolHa|
|000016f0| 6e 64 6c 65 20 76 53 63 | 72 6f 6c 6c 3b 0d 09 4f |ndle vSc|roll;..O|
|00001700| 53 45 72 72 20 65 72 72 | 20 3d 20 6e 6f 45 72 72 |SErr err| = noErr|
|00001710| 3b 0d 09 63 68 61 72 20 | 73 74 61 74 65 3b 0d 09 |;..char |state;..|
|00001720| 47 72 61 66 50 74 72 20 | 70 6f 72 74 3b 0d 09 6c |GrafPtr |port;..l|
|00001730| 6f 6e 67 20 6c 65 6e 3b | 0d 09 0d 09 4d 79 49 43 |ong len;|....MyIC|
|00001740| 52 65 61 64 53 68 61 72 | 65 64 50 72 65 66 73 28 |ReadShar|edPrefs(|
|00001750| 6b 49 43 53 63 72 65 65 | 6e 46 6f 6e 74 29 3b 0d |kICScree|nFont);.|
|00001760| 09 0d 09 47 65 74 50 6f | 72 74 28 26 70 6f 72 74 |...GetPo|rt(&port|
|00001770| 29 3b 0d 0d 09 65 72 72 | 20 3d 20 43 72 65 61 74 |);...err| = Creat|
|00001780| 65 4e 65 77 57 69 6e 64 | 6f 77 28 6b 54 65 78 74 |eNewWind|ow(kText|
|00001790| 2c 20 74 69 74 6c 65 2c | 20 67 50 72 65 66 73 2e |, title,| gPrefs.|
|000017a0| 74 65 78 74 46 6f 6e 74 | 2c 20 67 50 72 65 66 73 |textFont|, gPrefs|
|000017b0| 2e 74 65 78 74 53 69 7a | 65 2c 20 26 77 69 6e 64 |.textSiz|e, &wind|
|000017c0| 29 3b 0d 09 69 66 20 28 | 65 72 72 20 21 3d 20 6e |);..if (|err != n|
|000017d0| 6f 45 72 72 29 20 72 65 | 74 75 72 6e 20 65 72 72 |oErr) re|turn err|
|000017e0| 3b 0d 09 53 65 74 50 6f | 72 74 28 77 69 6e 64 29 |;..SetPo|rt(wind)|
|000017f0| 3b 0d 09 69 6e 66 6f 20 | 3d 20 28 54 57 69 6e 64 |;..info |= (TWind|
|00001800| 6f 77 2a 2a 29 47 65 74 | 57 52 65 66 43 6f 6e 28 |ow**)Get|WRefCon(|
|00001810| 77 69 6e 64 29 3b 0d 0d | 09 28 2a 2a 69 6e 66 6f |wind);..|.(**info|
|00001820| 29 2e 70 61 6e 65 6c 48 | 65 69 67 68 74 20 3d 20 |).panelH|eight = |
|00001830| 70 61 6e 65 6c 48 65 69 | 67 68 74 3b 0d 09 28 2a |panelHei|ght;..(*|
|00001840| 2a 69 6e 66 6f 29 2e 64 | 72 61 77 50 61 6e 65 6c |*info).d|rawPanel|
|00001850| 20 3d 20 64 72 61 77 50 | 61 6e 65 6c 3b 0d 09 77 | = drawP|anel;..w|
|00001860| 69 64 74 68 20 3d 20 6b | 4d 69 6e 57 69 6e 64 6f |idth = k|MinWindo|
|00001870| 77 57 69 64 74 68 3b 0d | 09 68 65 69 67 68 74 20 |wWidth;.|.height |
|00001880| 3d 20 4d 69 6e 48 65 69 | 67 68 74 28 77 69 6e 64 |= MinHei|ght(wind|
|00001890| 29 3b 0d 09 50 6f 73 69 | 74 69 6f 6e 4e 65 77 57 |);..Posi|tionNewW|
|000018a0| 69 6e 64 6f 77 28 77 69 | 6e 64 2c 20 77 69 64 74 |indow(wi|nd, widt|
|000018b0| 68 2c 20 68 65 69 67 68 | 74 29 3b 0d 0d 09 47 65 |h, heigh|t);...Ge|
|000018c0| 74 54 65 78 74 52 65 63 | 74 28 77 69 6e 64 2c 20 |tTextRec|t(wind, |
|000018d0| 26 72 29 3b 0d 09 74 68 | 65 54 45 20 3d 20 54 45 |&r);..th|eTE = TE|
|000018e0| 4e 65 77 28 26 72 2c 20 | 26 72 29 3b 0d 09 28 2a |New(&r, |&r);..(*|
|000018f0| 2a 74 68 65 54 45 29 2e | 63 6c 69 63 6b 4c 6f 6f |*theTE).|clickLoo|
|00001900| 70 20 3d 20 67 41 75 74 | 6f 53 63 72 6f 6c 6c 55 |p = gAut|oScrollU|
|00001910| 50 50 3b 0d 09 69 66 20 | 28 67 48 61 76 65 54 45 |PP;..if |(gHaveTE|
|00001920| 4f 75 74 6c 69 6e 65 48 | 69 6c 69 74 65 29 20 54 |OutlineH|ilite) T|
|00001930| 45 46 65 61 74 75 72 65 | 46 6c 61 67 28 74 65 46 |EFeature|Flag(teF|
|00001940| 4f 75 74 6c 69 6e 65 48 | 69 6c 69 74 65 2c 20 54 |OutlineH|ilite, T|
|00001950| 45 42 69 74 53 65 74 2c | 20 74 68 65 54 45 29 3b |EBitSet,| theTE);|
|00001960| 0d 09 28 2a 2a 69 6e 66 | 6f 29 2e 74 68 65 54 45 |..(**inf|o).theTE|
|00001970| 20 3d 20 74 68 65 54 45 | 3b 0d 09 0d 09 53 65 74 | = theTE|;....Set|
|00001980| 52 65 63 74 28 26 72 2c | 20 77 69 64 74 68 2d 31 |Rect(&r,| width-1|
|00001990| 35 2c 20 70 61 6e 65 6c | 48 65 69 67 68 74 2d 31 |5, panel|Height-1|
|000019a0| 2c 20 77 69 64 74 68 2b | 31 2c 20 68 65 69 67 68 |, width+|1, heigh|
|000019b0| 74 2d 31 34 29 3b 20 0d | 09 76 53 63 72 6f 6c 6c |t-14); .|.vScroll|
|000019c0| 20 3d 20 4e 65 77 43 6f | 6e 74 72 6f 6c 28 77 69 | = NewCo|ntrol(wi|
|000019d0| 6e 64 2c 20 26 72 2c 20 | 22 5c 70 22 2c 20 74 72 |nd, &r, |"\p", tr|
|000019e0| 75 65 2c 20 30 2c 20 30 | 2c 20 30 2c 20 73 63 72 |ue, 0, 0|, 0, scr|
|000019f0| 6f 6c 6c 42 61 72 50 72 | 6f 63 2c 20 31 29 3b 0d |ollBarPr|oc, 1);.|
|00001a00| 09 28 2a 2a 69 6e 66 6f | 29 2e 76 53 63 72 6f 6c |.(**info|).vScrol|
|00001a10| 6c 20 3d 20 76 53 63 72 | 6f 6c 6c 3b 0d 09 0d 09 |l = vScr|oll;....|
|00001a20| 73 74 61 74 65 20 3d 20 | 4d 79 48 47 65 74 53 74 |state = |MyHGetSt|
|00001a30| 61 74 65 28 74 65 78 74 | 29 3b 0d 09 4d 79 48 4c |ate(text|);..MyHL|
|00001a40| 6f 63 6b 28 74 65 78 74 | 29 3b 0d 09 6c 65 6e 20 |ock(text|);..len |
|00001a50| 3d 20 4d 79 47 65 74 48 | 61 6e 64 6c 65 53 69 7a |= MyGetH|andleSiz|
|00001a60| 65 28 74 65 78 74 29 3b | 0d 09 69 66 20 28 6c 65 |e(text);|..if (le|
|00001a70| 6e 20 3e 20 30 78 37 66 | 66 66 29 20 6c 65 6e 20 |n > 0x7f|ff) len |
|00001a80| 3d 20 30 78 37 66 66 66 | 3b 0d 09 65 72 72 20 3d |= 0x7fff|;..err =|
|00001a90| 20 4d 79 54 45 53 65 74 | 54 65 78 74 28 2a 74 65 | MyTESet|Text(*te|
|00001aa0| 78 74 2c 20 6c 65 6e 2c | 20 74 68 65 54 45 29 3b |xt, len,| theTE);|
|00001ab0| 0d 09 4d 79 48 53 65 74 | 53 74 61 74 65 28 74 65 |..MyHSet|State(te|
|00001ac0| 78 74 2c 20 73 74 61 74 | 65 29 3b 0d 09 69 66 20 |xt, stat|e);..if |
|00001ad0| 28 65 72 72 20 21 3d 20 | 6e 6f 45 72 72 29 20 67 |(err != |noErr) g|
|00001ae0| 6f 74 6f 20 65 78 69 74 | 3b 0d 09 0d 09 54 45 53 |oto exit|;....TES|
|00001af0| 65 74 53 65 6c 65 63 74 | 28 30 2c 20 30 2c 20 74 |etSelect|(0, 0, t|
|00001b00| 68 65 54 45 29 3b 0d 09 | 0d 09 65 72 72 20 3d 20 |heTE);..|..err = |
|00001b10| 44 6f 5a 6f 6f 6d 28 77 | 69 6e 64 2c 20 69 6e 5a |DoZoom(w|ind, inZ|
|00001b20| 6f 6f 6d 4f 75 74 29 3b | 0d 09 69 66 20 28 65 72 |oomOut);|..if (er|
|00001b30| 72 20 21 3d 20 6e 6f 45 | 72 72 29 20 67 6f 74 6f |r != noE|rr) goto|
|00001b40| 20 65 78 69 74 3b 0d 09 | 0d 09 54 45 53 63 72 6f | exit;..|..TEScro|
|00001b50| 6c 6c 41 64 6a 75 73 74 | 53 63 72 6f 6c 6c 4d 61 |llAdjust|ScrollMa|
|00001b60| 78 28 74 68 65 54 45 2c | 20 76 53 63 72 6f 6c 6c |x(theTE,| vScroll|
|00001b70| 29 3b 0d 09 4d 79 53 68 | 6f 77 57 69 6e 64 6f 77 |);..MySh|owWindow|
|00001b80| 28 77 69 6e 64 29 3b 0d | 09 2a 74 68 65 57 69 6e |(wind);.|.*theWin|
|00001b90| 64 6f 77 20 3d 20 77 69 | 6e 64 3b 0d 09 53 65 74 |dow = wi|nd;..Set|
|00001ba0| 50 6f 72 74 28 70 6f 72 | 74 29 3b 0d 09 72 65 74 |Port(por|t);..ret|
|00001bb0| 75 72 6e 20 6e 6f 45 72 | 72 3b 0d 09 0d 65 78 69 |urn noEr|r;...exi|
|00001bc0| 74 3a 0d 0d 09 44 6f 43 | 6c 6f 73 65 28 77 69 6e |t:...DoC|lose(win|
|00001bd0| 64 29 3b 0d 09 53 65 74 | 50 6f 72 74 28 70 6f 72 |d);..Set|Port(por|
|00001be0| 74 29 3b 0d 09 72 65 74 | 75 72 6e 20 65 72 72 3b |t);..ret|urn err;|
|00001bf0| 0d 7d 0d 0d 0d 0d 2f 2a | 2d 2d 2d 2d 2d 2d 2d 2d |.}..../*|--------|
|00001c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c40| 2d 2d 2d 2d 0d 09 43 68 | 65 63 6b 54 65 78 74 57 |----..Ch|eckTextW|
|00001c50| 69 6e 64 6f 77 41 6c 72 | 65 61 64 79 4f 70 65 6e |indowAlr|eadyOpen|
|00001c60| 0d 09 0d 09 43 68 65 63 | 6b 20 74 6f 20 73 65 65 |....Chec|k to see|
|00001c70| 20 69 66 20 61 20 74 65 | 78 74 20 77 69 6e 64 6f | if a te|xt windo|
|00001c80| 77 20 69 73 20 61 6c 72 | 65 61 64 79 20 6f 70 65 |w is alr|eady ope|
|00001c90| 6e 2c 20 61 6e 64 20 69 | 66 20 69 74 20 69 73 2c |n, and i|f it is,|
|00001ca0| 20 62 72 69 6e 67 20 69 | 74 20 74 6f 0d 09 74 68 | bring i|t to..th|
|00001cb0| 65 20 66 72 6f 6e 74 2e | 0d 09 0d 09 45 6e 74 72 |e front.|....Entr|
|00001cc0| 79 3a 09 74 69 74 6c 65 | 20 3d 20 77 69 6e 64 6f |y:.title| = windo|
|00001cd0| 77 20 74 69 74 6c 65 2c | 20 50 2d 66 6f 72 6d 61 |w title,| P-forma|
|00001ce0| 74 2e 0d 09 09 09 09 0d | 09 45 78 69 74 3a 09 66 |t.......|.Exit:.f|
|00001cf0| 75 6e 63 74 69 6f 6e 20 | 72 65 73 75 6c 74 20 3d |unction |result =|
|00001d00| 20 74 72 75 65 20 69 66 | 20 61 6c 72 65 61 64 79 | true if| already|
|00001d10| 20 6f 70 65 6e 20 77 69 | 6e 64 6f 77 20 62 72 6f | open wi|ndow bro|
|00001d20| 75 67 68 74 20 74 6f 20 | 66 72 6f 6e 74 2e 0d 2d |ught to |front..-|
|00001d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 2f 0d 0d 42 |--------|---*/..B|
|00001d80| 6f 6f 6c 65 61 6e 20 43 | 68 65 63 6b 54 65 78 74 |oolean C|heckText|
|00001d90| 57 69 6e 64 6f 77 41 6c | 72 65 61 64 79 4f 70 65 |WindowAl|readyOpe|
|00001da0| 6e 20 28 53 74 72 69 6e | 67 50 74 72 20 74 69 74 |n (Strin|gPtr tit|
|00001db0| 6c 65 29 0d 7b 0d 09 57 | 69 6e 64 6f 77 50 74 72 |le).{..W|indowPtr|
|00001dc0| 20 77 69 6e 64 3b 0d 09 | 53 74 72 32 35 35 20 77 | wind;..|Str255 w|
|00001dd0| 69 6e 64 54 69 74 6c 65 | 3b 0d 09 54 57 69 6e 64 |indTitle|;..TWind|
|00001de0| 6f 77 4b 69 6e 64 20 6b | 69 6e 64 3b 0d 09 0d 09 |owKind k|ind;....|
|00001df0| 77 69 6e 64 20 3d 20 46 | 72 6f 6e 74 57 69 6e 64 |wind = F|rontWind|
|00001e00| 6f 77 28 29 3b 0d 09 77 | 68 69 6c 65 20 28 77 69 |ow();..w|hile (wi|
|00001e10| 6e 64 20 21 3d 20 6e 69 | 6c 29 20 7b 0d 09 09 6b |nd != ni|l) {...k|
|00001e20| 69 6e 64 20 3d 20 47 65 | 74 4d 79 57 69 6e 64 6f |ind = Ge|tMyWindo|
|00001e30| 77 4b 69 6e 64 28 77 69 | 6e 64 29 3b 0d 09 09 69 |wKind(wi|nd);...i|
|00001e40| 66 20 28 6b 69 6e 64 20 | 3d 3d 20 6b 54 65 78 74 |f (kind |== kText|
|00001e50| 29 20 7b 0d 09 09 09 47 | 65 74 57 54 69 74 6c 65 |) {....G|etWTitle|
|00001e60| 28 77 69 6e 64 2c 20 77 | 69 6e 64 54 69 74 6c 65 |(wind, w|indTitle|
|00001e70| 29 3b 0d 09 09 09 69 66 | 20 28 45 71 75 61 6c 53 |);....if| (EqualS|
|00001e80| 74 72 69 6e 67 28 77 69 | 6e 64 54 69 74 6c 65 2c |tring(wi|ndTitle,|
|00001e90| 20 74 69 74 6c 65 2c 20 | 66 61 6c 73 65 2c 20 66 | title, |false, f|
|00001ea0| 61 6c 73 65 29 29 20 7b | 0d 09 09 09 09 4d 79 53 |alse)) {|.....MyS|
|00001eb0| 65 6c 65 63 74 57 69 6e | 64 6f 77 28 77 69 6e 64 |electWin|dow(wind|
|00001ec0| 29 3b 0d 09 09 09 09 72 | 65 74 75 72 6e 20 74 72 |);.....r|eturn tr|
|00001ed0| 75 65 3b 0d 09 09 09 7d | 0d 09 09 7d 0d 09 09 77 |ue;....}|...}...w|
|00001ee0| 69 6e 64 20 3d 20 28 57 | 69 6e 64 6f 77 50 74 72 |ind = (W|indowPtr|
|00001ef0| 29 28 28 28 57 69 6e 64 | 6f 77 50 65 65 6b 29 77 |)(((Wind|owPeek)w|
|00001f00| 69 6e 64 29 2d 3e 6e 65 | 78 74 57 69 6e 64 6f 77 |ind)->ne|xtWindow|
|00001f10| 29 3b 0d 09 7d 0d 09 72 | 65 74 75 72 6e 20 66 61 |);..}..r|eturn fa|
|00001f20| 6c 73 65 3b 0d 7d 0d 0d | 0d 0d 2f 2a 2d 2d 2d 2d |lse;.}..|../*----|
|00001f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f70| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 46 69 6e 64 20 0d |--------|..Find .|
|00001f80| 09 0d 09 53 65 61 72 63 | 68 20 61 20 74 65 78 74 |...Searc|h a text|
|00001f90| 20 77 69 6e 64 6f 77 20 | 66 6f 72 20 61 20 70 61 | window |for a pa|
|00001fa0| 74 74 65 72 6e 2e 0d 09 | 09 09 0d 09 45 6e 74 72 |ttern...|....Entr|
|00001fb0| 79 3a 09 77 69 6e 64 20 | 3d 20 70 6f 69 6e 74 65 |y:.wind |= pointe|
|00001fc0| 72 20 74 6f 20 74 65 78 | 74 20 77 69 6e 64 6f 77 |r to tex|t window|
|00001fd0| 2e 0d 09 09 09 6f 66 66 | 73 65 74 20 3d 20 6f 66 |.....off|set = of|
|00001fe0| 66 73 65 74 20 69 6e 74 | 6f 20 74 65 78 74 20 74 |fset int|o text t|
|00001ff0| 6f 20 62 65 67 69 6e 20 | 73 65 61 72 63 68 2e 0d |o begin |search..|
|00002000| 09 09 09 67 46 69 6e 64 | 50 61 74 74 65 72 6e 20 |...gFind|Pattern |
|00002010| 3d 20 70 61 74 74 65 72 | 6e 2e 0d 09 0d 09 45 78 |= patter|n.....Ex|
|00002020| 69 74 3a 09 66 75 6e 63 | 74 69 6f 6e 20 72 65 73 |it:.func|tion res|
|00002030| 75 6c 74 20 3d 20 65 72 | 72 6f 72 20 63 6f 64 65 |ult = er|ror code|
|00002040| 2e 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|00002050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|00002090| 0d 0d 73 74 61 74 69 63 | 20 4f 53 45 72 72 20 46 |..static| OSErr F|
|000020a0| 69 6e 64 20 28 57 69 6e | 64 6f 77 50 74 72 20 77 |ind (Win|dowPtr w|
|000020b0| 69 6e 64 2c 20 73 68 6f | 72 74 20 6f 66 66 73 65 |ind, sho|rt offse|
|000020c0| 74 29 0d 7b 0d 09 54 57 | 69 6e 64 6f 77 20 2a 2a |t).{..TW|indow **|
|000020d0| 69 6e 66 6f 3b 0d 09 54 | 45 48 61 6e 64 6c 65 20 |info;..T|EHandle |
|000020e0| 74 68 65 54 45 3b 0d 09 | 48 61 6e 64 6c 65 20 68 |theTE;..|Handle h|
|000020f0| 54 65 78 74 3b 0d 09 73 | 68 6f 72 74 20 6c 65 6e |Text;..s|hort len|
|00002100| 3b 0d 09 63 68 61 72 20 | 73 74 61 74 65 3b 0d 09 |;..char |state;..|
|00002110| 6c 6f 6e 67 20 6d 61 74 | 63 68 4f 66 66 73 65 74 |long mat|chOffset|
|00002120| 3b 0d 09 4f 53 45 72 72 | 20 65 72 72 20 3d 20 6e |;..OSErr| err = n|
|00002130| 6f 45 72 72 3b 0d 09 0d | 09 69 6e 66 6f 20 3d 20 |oErr;...|.info = |
|00002140| 28 54 57 69 6e 64 6f 77 | 2a 2a 29 47 65 74 57 52 |(TWindow|**)GetWR|
|00002150| 65 66 43 6f 6e 28 77 69 | 6e 64 29 3b 0d 09 74 68 |efCon(wi|nd);..th|
|00002160| 65 54 45 20 3d 20 28 2a | 2a 69 6e 66 6f 29 2e 74 |eTE = (*|*info).t|
|00002170| 68 65 54 45 3b 0d 09 68 | 54 65 78 74 20 3d 20 28 |heTE;..h|Text = (|
|00002180| 2a 2a 74 68 65 54 45 29 | 2e 68 54 65 78 74 3b 0d |**theTE)|.hText;.|
|00002190| 09 6c 65 6e 20 3d 20 28 | 2a 2a 74 68 65 54 45 29 |.len = (|**theTE)|
|000021a0| 2e 74 65 4c 65 6e 67 74 | 68 20 2d 20 6f 66 66 73 |.teLengt|h - offs|
|000021b0| 65 74 3b 0d 09 73 74 61 | 74 65 20 3d 20 4d 79 48 |et;..sta|te = MyH|
|000021c0| 47 65 74 53 74 61 74 65 | 28 68 54 65 78 74 29 3b |GetState|(hText);|
|000021d0| 0d 09 4d 79 48 4c 6f 63 | 6b 28 68 54 65 78 74 29 |..MyHLoc|k(hText)|
|000021e0| 3b 0d 09 65 72 72 20 3d | 20 4d 79 4e 53 75 62 73 |;..err =| MyNSubs|
|000021f0| 74 72 69 6e 67 53 65 61 | 72 63 68 28 2a 68 54 65 |tringSea|rch(*hTe|
|00002200| 78 74 2b 6f 66 66 73 65 | 74 2c 20 67 46 69 6e 64 |xt+offse|t, gFind|
|00002210| 50 61 74 74 65 72 6e 2c | 20 6c 65 6e 2c 20 26 6d |Pattern,| len, &m|
|00002220| 61 74 63 68 4f 66 66 73 | 65 74 2c 20 0d 09 09 47 |atchOffs|et, ...G|
|00002230| 69 76 65 54 69 6d 65 29 | 3b 0d 09 4d 79 48 53 65 |iveTime)|;..MyHSe|
|00002240| 74 53 74 61 74 65 28 68 | 54 65 78 74 2c 20 73 74 |tState(h|Text, st|
|00002250| 61 74 65 29 3b 0d 09 69 | 66 20 28 65 72 72 20 21 |ate);..i|f (err !|
|00002260| 3d 20 6e 6f 45 72 72 29 | 20 72 65 74 75 72 6e 20 |= noErr)| return |
|00002270| 65 72 72 3b 0d 09 69 66 | 20 28 6d 61 74 63 68 4f |err;..if| (matchO|
|00002280| 66 66 73 65 74 20 3d 3d | 20 2d 31 29 20 7b 0d 09 |ffset ==| -1) {..|
|00002290| 09 53 79 73 42 65 65 70 | 28 30 29 3b 0d 09 7d 20 |.SysBeep|(0);..} |
|000022a0| 65 6c 73 65 20 7b 0d 09 | 09 6f 66 66 73 65 74 20 |else {..|.offset |
|000022b0| 2b 3d 20 6d 61 74 63 68 | 4f 66 66 73 65 74 3b 0d |+= match|Offset;.|
|000022c0| 09 09 54 45 53 65 74 53 | 65 6c 65 63 74 28 6f 66 |..TESetS|elect(of|
|000022d0| 66 73 65 74 2c 20 6f 66 | 66 73 65 74 20 2b 20 73 |fset, of|fset + s|
|000022e0| 74 72 6c 65 6e 28 67 46 | 69 6e 64 50 61 74 74 65 |trlen(gF|indPatte|
|000022f0| 72 6e 29 2c 20 74 68 65 | 54 45 29 3b 0d 09 09 54 |rn), the|TE);...T|
|00002300| 45 53 63 72 6f 6c 6c 53 | 63 72 6f 6c 6c 54 6f 4d |EScrollS|crollToM|
|00002310| 69 64 64 6c 65 28 74 68 | 65 54 45 2c 20 6f 66 66 |iddle(th|eTE, off|
|00002320| 73 65 74 2c 20 28 2a 2a | 69 6e 66 6f 29 2e 76 53 |set, (**|info).vS|
|00002330| 63 72 6f 6c 6c 29 3b 0d | 09 7d 0d 09 72 65 74 75 |croll);.|.}..retu|
|00002340| 72 6e 20 6e 6f 45 72 72 | 3b 0d 7d 0d 0d 0d 0d 2f |rn noErr|;.}..../|
|00002350| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|00002360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 09 44 |--------|-----..D|
|000023a0| 6f 53 61 76 65 20 0d 09 | 0d 09 48 61 6e 64 6c 65 |oSave ..|..Handle|
|000023b0| 20 74 68 65 20 22 53 61 | 76 65 22 20 63 6f 6d 6d | the "Sa|ve" comm|
|000023c0| 61 6e 64 2e 0d 09 09 09 | 0d 09 45 6e 74 72 79 3a |and.....|..Entry:|
|000023d0| 09 77 69 6e 64 20 3d 20 | 70 6f 69 6e 74 65 72 20 |.wind = |pointer |
|000023e0| 74 6f 20 74 65 78 74 20 | 77 69 6e 64 6f 77 2e 0d |to text |window..|
|000023f0| 09 09 09 6d 6f 64 69 66 | 69 65 72 73 20 3d 20 6d |...modif|iers = m|
|00002400| 6f 64 69 66 69 65 72 73 | 20 66 69 65 6c 64 20 66 |odifiers| field f|
|00002410| 72 6f 6d 20 65 76 65 6e | 74 20 72 65 63 6f 72 64 |rom even|t record|
|00002420| 2e 0d 09 0d 09 45 78 69 | 74 3a 09 66 75 6e 63 74 |.....Exi|t:.funct|
|00002430| 69 6f 6e 20 72 65 73 75 | 6c 74 20 3d 20 65 72 72 |ion resu|lt = err|
|00002440| 6f 72 20 63 6f 64 65 2e | 0d 2d 2d 2d 2d 2d 2d 2d |or code.|.-------|
|00002450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002490| 2d 2d 2d 2d 2d 2a 2f 0d | 0d 73 74 61 74 69 63 20 |-----*/.|.static |
|000024a0| 4f 53 45 72 72 20 44 6f | 53 61 76 65 20 28 57 69 |OSErr Do|Save (Wi|
|000024b0| 6e 64 6f 77 50 74 72 20 | 77 69 6e 64 2c 20 73 68 |ndowPtr |wind, sh|
|000024c0| 6f 72 74 20 6d 6f 64 69 | 66 69 65 72 73 29 0d 7b |ort modi|fiers).{|
|000024d0| 0d 09 53 74 72 32 35 35 | 20 74 69 74 6c 65 3b 0d |..Str255| title;.|
|000024e0| 09 53 74 72 33 31 20 66 | 69 6c 65 4e 61 6d 65 3b |.Str31 f|ileName;|
|000024f0| 0d 09 53 74 61 6e 64 61 | 72 64 46 69 6c 65 52 65 |..Standa|rdFileRe|
|00002500| 70 6c 79 20 72 65 70 6c | 79 3b 0d 09 53 74 72 32 |ply repl|y;..Str2|
|00002510| 35 35 20 70 72 6f 6d 70 | 74 3b 0d 09 4f 53 45 72 |55 promp|t;..OSEr|
|00002520| 72 20 65 72 72 20 3d 20 | 6e 6f 45 72 72 3b 0d 09 |r err = |noErr;..|
|00002530| 54 57 69 6e 64 6f 77 20 | 2a 2a 69 6e 66 6f 3b 0d |TWindow |**info;.|
|00002540| 09 48 61 6e 64 6c 65 20 | 74 65 78 74 3b 0d 09 6c |.Handle |text;..l|
|00002550| 6f 6e 67 20 73 74 61 72 | 74 2c 20 65 6e 64 3b 0d |ong star|t, end;.|
|00002560| 09 54 45 48 61 6e 64 6c | 65 20 74 68 65 54 45 3b |.TEHandl|e theTE;|
|00002570| 0d 09 63 68 61 72 20 73 | 74 61 74 65 3b 0d 09 73 |..char s|tate;..s|
|00002580| 68 6f 72 74 20 72 65 66 | 4e 75 6d 20 3d 20 30 3b |hort ref|Num = 0;|
|00002590| 0d 09 42 6f 6f 6c 65 61 | 6e 20 65 6d 70 74 79 3b |..Boolea|n empty;|
|000025a0| 0d 09 42 6f 6f 6c 65 61 | 6e 20 6e 65 65 64 43 52 |..Boolea|n needCR|
|000025b0| 3b 0d 09 6c 6f 6e 67 20 | 6c 65 6e 67 74 68 3b 0d |;..long |length;.|
|000025c0| 09 63 68 61 72 20 2a 70 | 3b 0d 09 0d 09 4d 79 49 |.char *p|;....MyI|
|000025d0| 43 52 65 61 64 53 68 61 | 72 65 64 50 72 65 66 73 |CReadSha|redPrefs|
|000025e0| 28 6b 49 43 65 64 69 74 | 6f 72 48 65 6c 70 65 72 |(kICedit|orHelper|
|000025f0| 29 3b 0d 0d 09 47 65 74 | 57 54 69 74 6c 65 28 77 |);...Get|WTitle(w|
|00002600| 69 6e 64 2c 20 74 69 74 | 6c 65 29 3b 0d 09 4d 61 |ind, tit|le);..Ma|
|00002610| 6b 65 4c 65 67 61 6c 46 | 69 6c 65 4e 61 6d 65 28 |keLegalF|ileName(|
|00002620| 74 69 74 6c 65 2c 20 66 | 69 6c 65 4e 61 6d 65 29 |title, f|ileName)|
|00002630| 3b 0d 09 47 65 74 50 53 | 74 72 69 6e 67 28 6b 53 |;..GetPS|tring(kS|
|00002640| 74 72 53 61 76 65 46 69 | 6c 65 41 73 50 72 6f 6d |trSaveFi|leAsProm|
|00002650| 70 74 2c 20 70 72 6f 6d | 70 74 29 3b 0d 09 4d 79 |pt, prom|pt);..My|
|00002660| 53 74 61 6e 64 61 72 64 | 50 75 74 46 69 6c 65 28 |Standard|PutFile(|
|00002670| 70 72 6f 6d 70 74 2c 20 | 66 69 6c 65 4e 61 6d 65 |prompt, |fileName|
|00002680| 2c 20 26 72 65 70 6c 79 | 2c 0d 09 09 67 50 72 65 |, &reply|,...gPre|
|00002690| 66 73 2e 73 61 76 65 64 | 41 72 74 44 65 66 61 75 |fs.saved|ArtDefau|
|000026a0| 6c 74 46 6f 6c 64 65 72 | 20 3f 20 67 50 72 65 66 |ltFolder| ? gPref|
|000026b0| 73 2e 73 61 76 65 64 41 | 72 74 44 65 66 61 75 6c |s.savedA|rtDefaul|
|000026c0| 74 46 6f 6c 64 65 72 41 | 6c 69 61 73 20 3a 20 6e |tFolderA|lias : n|
|000026d0| 69 6c 29 3b 0d 20 20 20 | 20 69 66 20 28 21 72 65 |il);.   | if (!re|
|000026e0| 70 6c 79 2e 73 66 47 6f | 6f 64 29 20 72 65 74 75 |ply.sfGo|od) retu|
|000026f0| 72 6e 20 75 73 65 72 43 | 61 6e 63 65 6c 65 64 45 |rn userC|anceledE|
|00002700| 72 72 3b 0d 09 69 6e 66 | 6f 20 3d 20 28 54 57 69 |rr;..inf|o = (TWi|
|00002710| 6e 64 6f 77 2a 2a 29 47 | 65 74 57 52 65 66 43 6f |ndow**)G|etWRefCo|
|00002720| 6e 28 77 69 6e 64 29 3b | 0d 09 74 68 65 54 45 20 |n(wind);|..theTE |
|00002730| 3d 20 28 2a 2a 69 6e 66 | 6f 29 2e 74 68 65 54 45 |= (**inf|o).theTE|
|00002740| 3b 0d 09 74 65 78 74 20 | 3d 20 28 2a 2a 74 68 65 |;..text |= (**the|
|00002750| 54 45 29 2e 68 54 65 78 | 74 3b 0d 09 69 66 20 28 |TE).hTex|t;..if (|
|00002760| 28 6d 6f 64 69 66 69 65 | 72 73 20 26 20 73 68 69 |(modifie|rs & shi|
|00002770| 66 74 4b 65 79 29 20 3d | 3d 20 30 29 20 7b 0d 09 |ftKey) =|= 0) {..|
|00002780| 09 73 74 61 72 74 20 3d | 20 30 3b 0d 09 09 65 6e |.start =| 0;...en|
|00002790| 64 20 3d 20 4d 79 47 65 | 74 48 61 6e 64 6c 65 53 |d = MyGe|tHandleS|
|000027a0| 69 7a 65 28 74 65 78 74 | 29 3b 0d 09 7d 20 65 6c |ize(text|);..} el|
|000027b0| 73 65 20 7b 0d 09 09 73 | 74 61 72 74 20 3d 20 28 |se {...s|tart = (|
|000027c0| 2a 2a 74 68 65 54 45 29 | 2e 73 65 6c 53 74 61 72 |**theTE)|.selStar|
|000027d0| 74 3b 0d 09 09 65 6e 64 | 20 3d 20 28 2a 2a 74 68 |t;...end| = (**th|
|000027e0| 65 54 45 29 2e 73 65 6c | 45 6e 64 3b 0d 09 7d 0d |eTE).sel|End;..}.|
|000027f0| 09 0d 09 73 74 61 74 65 | 20 3d 20 4d 79 48 47 65 |...state| = MyHGe|
|00002800| 74 53 74 61 74 65 28 74 | 65 78 74 29 3b 0d 0d 09 |tState(t|ext);...|
|00002810| 65 72 72 20 3d 20 4f 70 | 65 6e 44 61 74 61 46 6f |err = Op|enDataFo|
|00002820| 72 6b 57 72 69 74 65 43 | 72 65 61 74 65 49 66 4d |rkWriteC|reateIfM|
|00002830| 69 73 73 69 6e 67 28 26 | 72 65 70 6c 79 2e 73 66 |issing(&|reply.sf|
|00002840| 46 69 6c 65 2c 20 67 50 | 72 65 66 73 2e 73 61 76 |File, gP|refs.sav|
|00002850| 65 64 41 72 74 43 72 65 | 61 74 6f 72 2c 20 27 54 |edArtCre|ator, 'T|
|00002860| 45 58 54 27 2c 0d 09 09 | 72 65 70 6c 79 2e 73 66 |EXT',...|reply.sf|
|00002870| 53 63 72 69 70 74 2c 20 | 66 61 6c 73 65 2c 20 26 |Script, |false, &|
|00002880| 72 65 66 4e 75 6d 2c 20 | 26 65 6d 70 74 79 29 3b |refNum, |&empty);|
|00002890| 0d 09 69 66 20 28 65 72 | 72 20 21 3d 20 6e 6f 45 |..if (er|r != noE|
|000028a0| 72 72 29 20 67 6f 74 6f | 20 65 78 69 74 3b 0d 0d |rr) goto| exit;..|
|000028b0| 09 6c 65 6e 67 74 68 20 | 3d 20 65 6e 64 20 2d 20 |.length |= end - |
|000028c0| 73 74 61 72 74 3b 0d 09 | 4d 79 48 4c 6f 63 6b 28 |start;..|MyHLock(|
|000028d0| 74 65 78 74 29 3b 0d 09 | 0d 09 66 6f 72 20 28 70 |text);..|..for (p|
|000028e0| 20 3d 20 2a 74 65 78 74 | 20 2b 20 65 6e 64 20 2d | = *text| + end -|
|000028f0| 20 31 3b 20 70 20 3e 3d | 20 2a 74 65 78 74 20 2b | 1; p >=| *text +|
|00002900| 20 73 74 61 72 74 20 26 | 26 20 2a 70 20 3d 3d 20 | start &|& *p == |
|00002910| 43 52 3b 20 70 2d 2d 29 | 20 2f 2a 20 64 6f 20 6e |CR; p--)| /* do n|
|00002920| 6f 74 68 69 6e 67 20 2a | 2f 3b 0d 09 70 2b 2b 3b |othing *|/;..p++;|
|00002930| 0d 09 69 66 20 28 70 20 | 3c 20 2a 74 65 78 74 20 |..if (p |< *text |
|00002940| 2b 20 65 6e 64 29 20 7b | 0d 09 09 6e 65 65 64 43 |+ end) {|...needC|
|00002950| 52 20 3d 20 66 61 6c 73 | 65 3b 0d 09 09 6c 65 6e |R = fals|e;...len|
|00002960| 67 74 68 20 3d 20 70 20 | 2b 20 31 20 2d 20 2a 74 |gth = p |+ 1 - *t|
|00002970| 65 78 74 20 2d 20 73 74 | 61 72 74 3b 0d 09 7d 20 |ext - st|art;..} |
|00002980| 65 6c 73 65 20 7b 0d 09 | 09 6e 65 65 64 43 52 20 |else {..|.needCR |
|00002990| 3d 20 74 72 75 65 3b 0d | 09 7d 0d 09 0d 09 65 72 |= true;.|.}....er|
|000029a0| 72 20 3d 20 46 53 57 72 | 69 74 65 28 72 65 66 4e |r = FSWr|ite(refN|
|000029b0| 75 6d 2c 20 26 6c 65 6e | 67 74 68 2c 20 2a 74 65 |um, &len|gth, *te|
|000029c0| 78 74 20 2b 20 73 74 61 | 72 74 29 3b 0d 09 69 66 |xt + sta|rt);..if|
|000029d0| 20 28 65 72 72 20 21 3d | 20 6e 6f 45 72 72 29 20 | (err !=| noErr) |
|000029e0| 67 6f 74 6f 20 65 78 69 | 74 3b 0d 09 69 66 20 28 |goto exi|t;..if (|
|000029f0| 6e 65 65 64 43 52 29 20 | 7b 0d 09 09 6c 65 6e 67 |needCR) |{...leng|
|00002a00| 74 68 20 3d 20 31 3b 0d | 09 09 65 72 72 20 3d 20 |th = 1;.|..err = |
|00002a10| 46 53 57 72 69 74 65 28 | 72 65 66 4e 75 6d 2c 20 |FSWrite(|refNum, |
|00002a20| 26 6c 65 6e 67 74 68 2c | 20 43 52 53 54 52 29 3b |&length,| CRSTR);|
|00002a30| 0d 09 09 69 66 20 28 65 | 72 72 20 21 3d 20 6e 6f |...if (e|rr != no|
|00002a40| 45 72 72 29 20 67 6f 74 | 6f 20 65 78 69 74 3b 0d |Err) got|o exit;.|
|00002a50| 09 7d 0d 09 4d 79 48 53 | 65 74 53 74 61 74 65 28 |.}..MyHS|etState(|
|00002a60| 74 65 78 74 2c 20 73 74 | 61 74 65 29 3b 0d 09 4d |text, st|ate);..M|
|00002a70| 79 46 53 43 6c 6f 73 65 | 28 72 65 66 4e 75 6d 2c |yFSClose|(refNum,|
|00002a80| 20 6e 69 6c 29 3b 0d 09 | 72 65 74 75 72 6e 20 6e | nil);..|return n|
|00002a90| 6f 45 72 72 3b 0d 09 0d | 65 78 69 74 3a 0d 0d 09 |oErr;...|exit:...|
|00002aa0| 4d 79 48 53 65 74 53 74 | 61 74 65 28 74 65 78 74 |MyHSetSt|ate(text|
|00002ab0| 2c 20 73 74 61 74 65 29 | 3b 0d 09 69 66 20 28 72 |, state)|;..if (r|
|00002ac0| 65 66 4e 75 6d 20 21 3d | 20 30 29 20 4d 79 46 53 |efNum !=| 0) MyFS|
|00002ad0| 43 6c 6f 73 65 28 72 65 | 66 4e 75 6d 2c 20 6e 69 |Close(re|fNum, ni|
|00002ae0| 6c 29 3b 0d 09 72 65 74 | 75 72 6e 20 65 72 72 3b |l);..ret|urn err;|
|00002af0| 0d 7d 0d 0d 0d 0d 2f 2a | 2d 2d 2d 2d 2d 2d 2d 2d |.}..../*|--------|
|00002b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b40| 2d 2d 2d 2d 0d 09 44 6f | 53 61 76 65 41 73 0d 09 |----..Do|SaveAs..|
|00002b50| 0d 09 48 61 6e 64 6c 65 | 20 74 68 65 20 22 53 61 |..Handle| the "Sa|
|00002b60| 76 65 20 41 73 22 20 63 | 6f 6d 6d 61 6e 64 2e 0d |ve As" c|ommand..|
|00002b70| 09 09 09 0d 09 45 6e 74 | 72 79 3a 09 77 69 6e 64 |.....Ent|ry:.wind|
|00002b80| 20 3d 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 74 65 | = point|er to te|
|00002b90| 78 74 20 77 69 6e 64 6f | 77 2e 0d 09 09 09 6d 6f |xt windo|w.....mo|
|00002ba0| 64 69 66 69 65 72 73 20 | 3d 20 6d 6f 64 69 66 69 |difiers |= modifi|
|00002bb0| 65 72 73 20 66 69 65 6c | 64 20 66 72 6f 6d 20 65 |ers fiel|d from e|
|00002bc0| 76 65 6e 74 20 72 65 63 | 6f 72 64 2e 0d 09 0d 09 |vent rec|ord.....|
|00002bd0| 45 78 69 74 3a 09 66 75 | 6e 63 74 69 6f 6e 20 72 |Exit:.fu|nction r|
|00002be0| 65 73 75 6c 74 20 3d 20 | 65 72 72 6f 72 20 63 6f |esult = |error co|
|00002bf0| 64 65 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |de..----|--------|
|00002c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c40| 2a 2f 0d 0d 73 74 61 74 | 69 63 20 4f 53 45 72 72 |*/..stat|ic OSErr|
|00002c50| 20 44 6f 53 61 76 65 41 | 73 20 28 57 69 6e 64 6f | DoSaveA|s (Windo|
|00002c60| 77 50 74 72 20 77 69 6e | 64 2c 20 73 68 6f 72 74 |wPtr win|d, short|
|00002c70| 20 6d 6f 64 69 66 69 65 | 72 73 29 0d 7b 0d 09 72 | modifie|rs).{..r|
|00002c80| 65 74 75 72 6e 20 44 6f | 53 61 76 65 28 77 69 6e |eturn Do|Save(win|
|00002c90| 64 2c 20 6d 6f 64 69 66 | 69 65 72 73 29 3b 0d 7d |d, modif|iers);.}|
|00002ca0| 0d 0d 0d 0d 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..../*--|--------|
|00002cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cf0| 2d 2d 0d 09 44 6f 50 72 | 69 6e 74 20 0d 09 0d 09 |--..DoPr|int ....|
|00002d00| 48 61 6e 64 6c 65 20 74 | 68 65 20 22 50 72 69 6e |Handle t|he "Prin|
|00002d10| 74 22 20 63 6f 6d 6d 61 | 6e 64 2e 0d 09 09 09 0d |t" comma|nd......|
|00002d20| 09 45 6e 74 72 79 3a 09 | 77 69 6e 64 20 3d 20 70 |.Entry:.|wind = p|
|00002d30| 6f 69 6e 74 65 72 20 74 | 6f 20 74 65 78 74 20 77 |ointer t|o text w|
|00002d40| 69 6e 64 6f 77 2e 0d 09 | 09 09 6d 6f 64 69 66 69 |indow...|..modifi|
|00002d50| 65 72 73 20 3d 20 6d 6f | 64 69 66 69 65 72 73 20 |ers = mo|difiers |
|00002d60| 66 69 65 6c 64 20 66 72 | 6f 6d 20 65 76 65 6e 74 |field fr|om event|
|00002d70| 20 72 65 63 6f 72 64 2e | 0d 09 09 09 0d 09 45 78 | record.|......Ex|
|00002d80| 69 74 3a 09 66 75 6e 63 | 74 69 6f 6e 20 72 65 73 |it:.func|tion res|
|00002d90| 75 6c 74 20 3d 20 65 72 | 72 6f 72 20 63 6f 64 65 |ult = er|ror code|
|00002da0| 2e 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|00002db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|00002df0| 0d 0d 73 74 61 74 69 63 | 20 4f 53 45 72 72 20 44 |..static| OSErr D|
|00002e00| 6f 50 72 69 6e 74 20 28 | 57 69 6e 64 6f 77 50 74 |oPrint (|WindowPt|
|00002e10| 72 20 77 69 6e 64 2c 20 | 73 68 6f 72 74 20 6d 6f |r wind, |short mo|
|00002e20| 64 69 66 69 65 72 73 29 | 0d 7b 0d 09 54 57 69 6e |difiers)|.{..TWin|
|00002e30| 64 6f 77 20 2a 2a 69 6e | 66 6f 3b 0d 09 54 45 48 |dow **in|fo;..TEH|
|00002e40| 61 6e 64 6c 65 20 74 68 | 65 54 45 3b 0d 09 48 61 |andle th|eTE;..Ha|
|00002e50| 6e 64 6c 65 20 74 65 78 | 74 3b 0d 09 43 53 74 72 |ndle tex|t;..CStr|
|00002e60| 32 35 35 20 74 69 74 6c | 65 3b 0d 09 4f 53 45 72 |255 titl|e;..OSEr|
|00002e70| 72 20 65 72 72 20 3d 20 | 6e 6f 45 72 72 3b 0d 09 |r err = |noErr;..|
|00002e80| 6c 6f 6e 67 20 73 74 61 | 72 74 2c 20 65 6e 64 3b |long sta|rt, end;|
|00002e90| 0d 09 0d 09 65 72 72 20 | 3d 20 53 74 61 72 74 50 |....err |= StartP|
|00002ea0| 72 69 6e 74 28 29 3b 0d | 09 69 66 20 28 65 72 72 |rint();.|.if (err|
|00002eb0| 20 21 3d 20 6e 6f 45 72 | 72 29 20 72 65 74 75 72 | != noEr|r) retur|
|00002ec0| 6e 20 65 72 72 3b 0d 09 | 0d 09 65 72 72 20 3d 20 |n err;..|..err = |
|00002ed0| 44 69 73 70 6c 61 79 53 | 74 61 74 75 73 4d 65 73 |DisplayS|tatusMes|
|00002ee0| 73 61 67 65 4e 75 6d 62 | 65 72 28 6b 53 74 72 50 |sageNumb|er(kStrP|
|00002ef0| 72 69 6e 74 69 6e 67 29 | 3b 0d 09 69 66 20 28 65 |rinting)|;..if (e|
|00002f00| 72 72 20 21 3d 20 6e 6f | 45 72 72 29 20 72 65 74 |rr != no|Err) ret|
|00002f10| 75 72 6e 20 65 72 72 3b | 0d 09 0d 09 47 65 74 57 |urn err;|....GetW|
|00002f20| 54 69 74 6c 65 28 77 69 | 6e 64 2c 20 28 53 74 72 |Title(wi|nd, (Str|
|00002f30| 69 6e 67 50 74 72 29 74 | 69 74 6c 65 29 3b 0d 09 |ingPtr)t|itle);..|
|00002f40| 70 32 63 73 74 72 28 28 | 53 74 72 69 6e 67 50 74 |p2cstr((|StringPt|
|00002f50| 72 29 74 69 74 6c 65 29 | 3b 0d 09 0d 09 69 6e 66 |r)title)|;....inf|
|00002f60| 6f 20 3d 20 28 54 57 69 | 6e 64 6f 77 2a 2a 29 47 |o = (TWi|ndow**)G|
|00002f70| 65 74 57 52 65 66 43 6f | 6e 28 77 69 6e 64 29 3b |etWRefCo|n(wind);|
|00002f80| 0d 09 74 68 65 54 45 20 | 3d 20 28 2a 2a 69 6e 66 |..theTE |= (**inf|
|00002f90| 6f 29 2e 74 68 65 54 45 | 3b 0d 09 74 65 78 74 20 |o).theTE|;..text |
|00002fa0| 3d 20 28 2a 2a 74 68 65 | 54 45 29 2e 68 54 65 78 |= (**the|TE).hTex|
|00002fb0| 74 3b 0d 09 73 74 61 72 | 74 20 3d 20 28 2a 2a 74 |t;..star|t = (**t|
|00002fc0| 68 65 54 45 29 2e 73 65 | 6c 53 74 61 72 74 3b 0d |heTE).se|lStart;.|
|00002fd0| 09 65 6e 64 20 3d 20 28 | 2a 2a 74 68 65 54 45 29 |.end = (|**theTE)|
|00002fe0| 2e 73 65 6c 45 6e 64 3b | 0d 09 69 66 20 28 28 6d |.selEnd;|..if ((m|
|00002ff0| 6f 64 69 66 69 65 72 73 | 20 26 20 73 68 69 66 74 |odifiers| & shift|
|00003000| 4b 65 79 29 20 3d 3d 20 | 30 20 7c 7c 20 73 74 61 |Key) == |0 || sta|
|00003010| 72 74 20 3e 3d 20 65 6e | 64 29 20 7b 0d 09 09 73 |rt >= en|d) {...s|
|00003020| 74 61 72 74 20 3d 20 30 | 3b 0d 09 09 65 6e 64 20 |tart = 0|;...end |
|00003030| 3d 20 4d 79 47 65 74 48 | 61 6e 64 6c 65 53 69 7a |= MyGetH|andleSiz|
|00003040| 65 28 74 65 78 74 29 3b | 0d 09 7d 0d 09 0d 09 72 |e(text);|..}....r|
|00003050| 65 74 75 72 6e 20 50 72 | 69 6e 74 54 65 78 74 28 |eturn Pr|intText(|
|00003060| 28 2a 2a 74 68 65 54 45 | 29 2e 68 54 65 78 74 2c |(**theTE|).hText,|
|00003070| 20 73 74 61 72 74 2c 20 | 65 6e 64 2c 20 74 69 74 | start, |end, tit|
|00003080| 6c 65 29 3b 0d 7d 0d 0d | 0d 0d 2f 2a 2d 2d 2d 2d |le);.}..|../*----|
|00003090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030d0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 44 6f 43 6f 70 79 |--------|..DoCopy|
|000030e0| 20 0d 09 0d 09 48 61 6e | 64 6c 65 20 74 68 65 20 | ....Han|dle the |
|000030f0| 22 43 6f 70 79 22 20 63 | 6f 6d 6d 61 6e 64 2e 0d |"Copy" c|ommand..|
|00003100| 09 09 09 0d 09 45 6e 74 | 72 79 3a 09 77 69 6e 64 |.....Ent|ry:.wind|
|00003110| 20 3d 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 74 65 | = point|er to te|
|00003120| 78 74 20 77 69 6e 64 6f | 77 2e 0d 2d 2d 2d 2d 2d |xt windo|w..-----|
|00003130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003170| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0d 0d 73 74 61 74 69 |-------*|/..stati|
|00003180| 63 20 76 6f 69 64 20 44 | 6f 43 6f 70 79 20 28 57 |c void D|oCopy (W|
|00003190| 69 6e 64 6f 77 50 74 72 | 20 77 69 6e 64 29 0d 7b |indowPtr| wind).{|
|000031a0| 0d 09 54 57 69 6e 64 6f | 77 20 2a 2a 69 6e 66 6f |..TWindo|w **info|
|000031b0| 3b 0d 09 54 45 48 61 6e | 64 6c 65 20 74 68 65 54 |;..TEHan|dle theT|
|000031c0| 45 3b 0d 09 0d 09 69 6e | 66 6f 20 3d 20 28 54 57 |E;....in|fo = (TW|
|000031d0| 69 6e 64 6f 77 2a 2a 29 | 47 65 74 57 52 65 66 43 |indow**)|GetWRefC|
|000031e0| 6f 6e 28 77 69 6e 64 29 | 3b 0d 09 74 68 65 54 45 |on(wind)|;..theTE|
|000031f0| 20 3d 20 28 2a 2a 69 6e | 66 6f 29 2e 74 68 65 54 | = (**in|fo).theT|
|00003200| 45 3b 0d 09 4d 79 54 45 | 43 6f 70 79 28 74 68 65 |E;..MyTE|Copy(the|
|00003210| 54 45 29 3b 0d 7d 0d 0d | 0d 0d 2f 2a 2d 2d 2d 2d |TE);.}..|../*----|
|00003220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003260| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 44 6f 53 65 6c 65 |--------|..DoSele|
|00003270| 63 74 41 6c 6c 20 0d 09 | 0d 09 48 61 6e 64 6c 65 |ctAll ..|..Handle|
|00003280| 20 74 68 65 20 22 53 65 | 6c 65 63 74 20 41 6c 6c | the "Se|lect All|
|00003290| 22 20 63 6f 6d 6d 61 6e | 64 2e 0d 09 09 09 0d 09 |" comman|d.......|
|000032a0| 45 6e 74 72 79 3a 09 77 | 69 6e 64 20 3d 20 70 6f |Entry:.w|ind = po|
|000032b0| 69 6e 74 65 72 20 74 6f | 20 74 65 78 74 20 77 69 |inter to| text wi|
|000032c0| 6e 64 6f 77 2e 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ndow..--|--------|
|000032d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003310| 2d 2d 2a 2f 0d 0d 73 74 | 61 74 69 63 20 76 6f 69 |--*/..st|atic voi|
|00003320| 64 20 44 6f 53 65 6c 65 | 63 74 41 6c 6c 20 28 57 |d DoSele|ctAll (W|
|00003330| 69 6e 64 6f 77 50 74 72 | 20 77 69 6e 64 29 0d 7b |indowPtr| wind).{|
|00003340| 0d 09 54 57 69 6e 64 6f | 77 20 2a 2a 69 6e 66 6f |..TWindo|w **info|
|00003350| 3b 0d 09 54 45 48 61 6e | 64 6c 65 20 74 68 65 54 |;..TEHan|dle theT|
|00003360| 45 3b 0d 09 0d 09 69 6e | 66 6f 20 3d 20 28 54 57 |E;....in|fo = (TW|
|00003370| 69 6e 64 6f 77 2a 2a 29 | 47 65 74 57 52 65 66 43 |indow**)|GetWRefC|
|00003380| 6f 6e 28 77 69 6e 64 29 | 3b 0d 09 74 68 65 54 45 |on(wind)|;..theTE|
|00003390| 20 3d 20 28 2a 2a 69 6e | 66 6f 29 2e 74 68 65 54 | = (**in|fo).theT|
|000033a0| 45 3b 0d 09 54 45 53 65 | 74 53 65 6c 65 63 74 28 |E;..TESe|tSelect(|
|000033b0| 30 2c 20 30 78 37 66 66 | 66 2c 20 74 68 65 54 45 |0, 0x7ff|f, theTE|
|000033c0| 29 3b 0d 7d 0d 0d 0d 0d | 2f 2a 2d 2d 2d 2d 2d 2d |);.}....|/*------|
|000033d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000033e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000033f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003410| 2d 2d 2d 2d 2d 2d 0d 09 | 44 6f 46 69 6e 64 20 0d |------..|DoFind .|
|00003420| 09 0d 09 48 61 6e 64 6c | 65 20 74 68 65 20 22 46 |...Handl|e the "F|
|00003430| 69 6e 64 22 20 63 6f 6d | 6d 61 6e 64 20 66 6f 72 |ind" com|mand for|
|00003440| 20 61 20 74 65 78 74 20 | 77 69 6e 64 6f 77 2e 0d | a text |window..|
|00003450| 09 09 09 0d 09 45 6e 74 | 72 79 3a 09 77 69 6e 64 |.....Ent|ry:.wind|
|00003460| 20 3d 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 74 65 | = point|er to te|
|00003470| 78 74 20 77 69 6e 64 6f | 77 2e 0d 09 0d 09 45 78 |xt windo|w.....Ex|
|00003480| 69 74 3a 09 66 75 6e 63 | 74 69 6f 6e 20 72 65 73 |it:.func|tion res|
|00003490| 75 6c 74 20 3d 20 65 72 | 72 6f 72 20 63 6f 64 65 |ult = er|ror code|
|000034a0| 2e 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|000034b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|000034f0| 0d 0d 73 74 61 74 69 63 | 20 4f 53 45 72 72 20 44 |..static| OSErr D|
|00003500| 6f 46 69 6e 64 20 28 57 | 69 6e 64 6f 77 50 74 72 |oFind (W|indowPtr|
|00003510| 20 77 69 6e 64 29 0d 7b | 0d 09 54 57 69 6e 64 6f | wind).{|..TWindo|
|00003520| 77 20 2a 2a 69 6e 66 6f | 3b 0d 09 54 45 48 61 6e |w **info|;..TEHan|
|00003530| 64 6c 65 20 74 68 65 54 | 45 3b 0d 09 4f 53 45 72 |dle theT|E;..OSEr|
|00003540| 72 20 65 72 72 20 3d 20 | 6e 6f 45 72 72 3b 0d 09 |r err = |noErr;..|
|00003550| 0d 09 65 72 72 20 3d 20 | 44 6f 46 69 6e 64 44 69 |..err = |DoFindDi|
|00003560| 61 6c 6f 67 28 29 3b 0d | 09 69 66 20 28 65 72 72 |alog();.|.if (err|
|00003570| 20 21 3d 20 6e 6f 45 72 | 72 29 20 72 65 74 75 72 | != noEr|r) retur|
|00003580| 6e 20 65 72 72 3b 0d 09 | 69 6e 66 6f 20 3d 20 28 |n err;..|info = (|
|00003590| 54 57 69 6e 64 6f 77 2a | 2a 29 47 65 74 57 52 65 |TWindow*|*)GetWRe|
|000035a0| 66 43 6f 6e 28 77 69 6e | 64 29 3b 0d 09 74 68 65 |fCon(win|d);..the|
|000035b0| 54 45 20 3d 20 28 2a 2a | 69 6e 66 6f 29 2e 74 68 |TE = (**|info).th|
|000035c0| 65 54 45 3b 0d 09 72 65 | 74 75 72 6e 20 46 69 6e |eTE;..re|turn Fin|
|000035d0| 64 28 77 69 6e 64 2c 20 | 67 50 72 65 66 73 2e 73 |d(wind, |gPrefs.s|
|000035e0| 74 61 72 74 46 69 6e 64 | 41 74 42 65 67 69 6e 6e |tartFind|AtBeginn|
|000035f0| 69 6e 67 20 3f 20 30 20 | 3a 20 28 2a 2a 74 68 65 |ing ? 0 |: (**the|
|00003600| 54 45 29 2e 73 65 6c 53 | 74 61 72 74 29 3b 0d 7d |TE).selS|tart);.}|
|00003610| 0d 0d 0d 0d 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..../*--|--------|
|00003620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003660| 2d 2d 0d 09 44 6f 46 69 | 6e 64 41 67 61 69 6e 0d |--..DoFi|ndAgain.|
|00003670| 09 0d 09 48 61 6e 64 6c | 65 20 74 68 65 20 22 46 |...Handl|e the "F|
|00003680| 69 6e 64 20 41 67 61 69 | 6e 22 20 63 6f 6d 6d 61 |ind Agai|n" comma|
|00003690| 6e 64 20 66 6f 72 20 61 | 20 74 65 78 74 20 77 69 |nd for a| text wi|
|000036a0| 6e 64 6f 77 2e 0d 09 09 | 09 0d 09 45 6e 74 72 79 |ndow....|...Entry|
|000036b0| 3a 09 77 69 6e 64 20 3d | 20 70 6f 69 6e 74 65 72 |:.wind =| pointer|
|000036c0| 20 74 6f 20 74 65 78 74 | 20 77 69 6e 64 6f 77 2e | to text| window.|
|000036d0| 0d 09 0d 09 45 78 69 74 | 3a 09 66 75 6e 63 74 69 |....Exit|:.functi|
|000036e0| 6f 6e 20 72 65 73 75 6c | 74 20 3d 20 65 72 72 6f |on resul|t = erro|
|000036f0| 72 20 63 6f 64 65 2e 0d | 2d 2d 2d 2d 2d 2d 2d 2d |r code..|--------|
|00003700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003740| 2d 2d 2d 2d 2a 2f 0d 0d | 73 74 61 74 69 63 20 4f |----*/..|static O|
|00003750| 53 45 72 72 20 44 6f 46 | 69 6e 64 41 67 61 69 6e |SErr DoF|indAgain|
|00003760| 20 28 57 69 6e 64 6f 77 | 50 74 72 20 77 69 6e 64 | (Window|Ptr wind|
|00003770| 29 0d 7b 0d 09 54 57 69 | 6e 64 6f 77 20 2a 2a 69 |).{..TWi|ndow **i|
|00003780| 6e 66 6f 3b 0d 09 54 45 | 48 61 6e 64 6c 65 20 74 |nfo;..TE|Handle t|
|00003790| 68 65 54 45 3b 0d 09 0d | 09 69 6e 66 6f 20 3d 20 |heTE;...|.info = |
|000037a0| 28 54 57 69 6e 64 6f 77 | 2a 2a 29 47 65 74 57 52 |(TWindow|**)GetWR|
|000037b0| 65 66 43 6f 6e 28 77 69 | 6e 64 29 3b 0d 09 74 68 |efCon(wi|nd);..th|
|000037c0| 65 54 45 20 3d 20 28 2a | 2a 69 6e 66 6f 29 2e 74 |eTE = (*|*info).t|
|000037d0| 68 65 54 45 3b 0d 09 72 | 65 74 75 72 6e 20 46 69 |heTE;..r|eturn Fi|
|000037e0| 6e 64 28 77 69 6e 64 2c | 20 28 2a 2a 74 68 65 54 |nd(wind,| (**theT|
|000037f0| 45 29 2e 73 65 6c 45 6e | 64 29 3b 0d 7d 0d 0d 0d |E).selEn|d);.}...|
|00003800| 0d 2f 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |./*-----|--------|
|00003810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00003850| 09 44 6f 45 6e 74 65 72 | 53 65 6c 65 63 74 69 6f |.DoEnter|Selectio|
|00003860| 6e 0d 09 0d 09 48 61 6e | 64 6c 65 20 74 68 65 20 |n....Han|dle the |
|00003870| 22 45 6e 74 65 72 20 53 | 65 6c 65 63 74 69 6f 6e |"Enter S|election|
|00003880| 22 20 63 6f 6d 6d 61 6e | 64 20 66 6f 72 20 61 20 |" comman|d for a |
|00003890| 74 65 78 74 20 77 69 6e | 64 6f 77 2e 0d 09 09 09 |text win|dow.....|
|000038a0| 0d 09 45 6e 74 72 79 3a | 09 77 69 6e 64 20 3d 20 |..Entry:|.wind = |
|000038b0| 70 6f 69 6e 74 65 72 20 | 74 6f 20 74 65 78 74 20 |pointer |to text |
|000038c0| 77 69 6e 64 6f 77 2e 0d | 09 0d 09 45 78 69 74 3a |window..|...Exit:|
|000038d0| 09 66 75 6e 63 74 69 6f | 6e 20 72 65 73 75 6c 74 |.functio|n result|
|000038e0| 20 3d 20 65 72 72 6f 72 | 20 63 6f 64 65 2e 0d 2d | = error| code..-|
|000038f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 2f 0d 0d 73 |--------|---*/..s|
|00003940| 74 61 74 69 63 20 4f 53 | 45 72 72 20 44 6f 45 6e |tatic OS|Err DoEn|
|00003950| 74 65 72 53 65 6c 65 63 | 74 69 6f 6e 20 28 57 69 |terSelec|tion (Wi|
|00003960| 6e 64 6f 77 50 74 72 20 | 77 69 6e 64 29 0d 7b 0d |ndowPtr |wind).{.|
|00003970| 09 54 57 69 6e 64 6f 77 | 20 2a 2a 69 6e 66 6f 3b |.TWindow| **info;|
|00003980| 0d 09 54 45 48 61 6e 64 | 6c 65 20 74 68 65 54 45 |..TEHand|le theTE|
|00003990| 3b 0d 09 73 68 6f 72 74 | 20 73 65 6c 53 74 61 72 |;..short| selStar|
|000039a0| 74 2c 20 73 65 6c 45 6e | 64 2c 20 6c 65 6e 3b 0d |t, selEn|d, len;.|
|000039b0| 09 48 61 6e 64 6c 65 20 | 68 54 65 78 74 3b 0d 09 |.Handle |hText;..|
|000039c0| 0d 09 69 6e 66 6f 20 3d | 20 28 54 57 69 6e 64 6f |..info =| (TWindo|
|000039d0| 77 2a 2a 29 47 65 74 57 | 52 65 66 43 6f 6e 28 77 |w**)GetW|RefCon(w|
|000039e0| 69 6e 64 29 3b 0d 09 74 | 68 65 54 45 20 3d 20 28 |ind);..t|heTE = (|
|000039f0| 2a 2a 69 6e 66 6f 29 2e | 74 68 65 54 45 3b 0d 09 |**info).|theTE;..|
|00003a00| 73 65 6c 53 74 61 72 74 | 20 3d 20 28 2a 2a 74 68 |selStart| = (**th|
|00003a10| 65 54 45 29 2e 73 65 6c | 53 74 61 72 74 3b 0d 09 |eTE).sel|Start;..|
|00003a20| 73 65 6c 45 6e 64 20 3d | 20 28 2a 2a 74 68 65 54 |selEnd =| (**theT|
|00003a30| 45 29 2e 73 65 6c 45 6e | 64 3b 0d 09 68 54 65 78 |E).selEn|d;..hTex|
|00003a40| 74 20 3d 20 28 2a 2a 74 | 68 65 54 45 29 2e 68 54 |t = (**t|heTE).hT|
|00003a50| 65 78 74 3b 0d 09 69 66 | 20 28 73 65 6c 53 74 61 |ext;..if| (selSta|
|00003a60| 72 74 20 3e 3d 20 73 65 | 6c 45 6e 64 20 7c 7c 20 |rt >= se|lEnd || |
|00003a70| 73 65 6c 45 6e 64 20 3e | 20 73 65 6c 53 74 61 72 |selEnd >| selStar|
|00003a80| 74 20 2b 20 32 35 35 29 | 20 72 65 74 75 72 6e 20 |t + 255)| return |
|00003a90| 6e 6f 45 72 72 3b 0d 09 | 6c 65 6e 20 3d 20 73 65 |noErr;..|len = se|
|00003aa0| 6c 45 6e 64 20 2d 20 73 | 65 6c 53 74 61 72 74 3b |lEnd - s|elStart;|
|00003ab0| 0d 09 42 6c 6f 63 6b 4d | 6f 76 65 44 61 74 61 28 |..BlockM|oveData(|
|00003ac0| 2a 68 54 65 78 74 20 2b | 20 73 65 6c 53 74 61 72 |*hText +| selStar|
|00003ad0| 74 2c 20 67 46 69 6e 64 | 50 61 74 74 65 72 6e 2c |t, gFind|Pattern,|
|00003ae0| 20 6c 65 6e 29 3b 0d 09 | 67 46 69 6e 64 50 61 74 | len);..|gFindPat|
|00003af0| 74 65 72 6e 5b 6c 65 6e | 5d 20 3d 20 30 3b 0d 09 |tern[len|] = 0;..|
|00003b00| 72 65 74 75 72 6e 20 6e | 6f 45 72 72 3b 0d 7d 0d |return n|oErr;.}.|
|00003b10| 0d 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.../*---|--------|
|00003b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b60| 2d 0d 09 41 63 74 69 76 | 61 74 65 20 0d 09 0d 09 |-..Activ|ate ....|
|00003b70| 48 61 6e 64 6c 65 20 61 | 6e 20 61 63 74 69 76 61 |Handle a|n activa|
|00003b80| 74 65 20 65 76 65 6e 74 | 20 66 6f 72 20 61 20 74 |te event| for a t|
|00003b90| 65 78 74 20 77 69 6e 64 | 6f 77 2e 0d 09 09 09 0d |ext wind|ow......|
|00003ba0| 09 45 6e 74 72 79 3a 09 | 77 69 6e 64 20 3d 20 70 |.Entry:.|wind = p|
|00003bb0| 6f 69 6e 74 65 72 20 74 | 6f 20 74 65 78 74 20 77 |ointer t|o text w|
|00003bc0| 69 6e 64 6f 77 2e 0d 09 | 09 09 61 63 74 20 3d 20 |indow...|..act = |
|00003bd0| 74 72 75 65 20 74 6f 20 | 61 63 74 69 76 61 74 65 |true to |activate|
|00003be0| 2c 20 66 61 6c 73 65 20 | 74 6f 20 64 65 61 63 74 |, false |to deact|
|00003bf0| 69 76 61 74 65 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ivate.--|--------|
|00003c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c40| 2d 2d 2a 2f 0d 0d 73 74 | 61 74 69 63 20 76 6f 69 |--*/..st|atic voi|
|00003c50| 64 20 41 63 74 69 76 61 | 74 65 20 28 57 69 6e 64 |d Activa|te (Wind|
|00003c60| 6f 77 50 74 72 20 77 69 | 6e 64 2c 20 42 6f 6f 6c |owPtr wi|nd, Bool|
|00003c70| 65 61 6e 20 61 63 74 29 | 0d 7b 0d 09 54 57 69 6e |ean act)|.{..TWin|
|00003c80| 64 6f 77 20 2a 2a 69 6e | 66 6f 3b 0d 09 54 45 48 |dow **in|fo;..TEH|
|00003c90| 61 6e 64 6c 65 20 74 68 | 65 54 45 3b 0d 09 43 6f |andle th|eTE;..Co|
|00003ca0| 6e 74 72 6f 6c 48 61 6e | 64 6c 65 20 76 53 63 72 |ntrolHan|dle vScr|
|00003cb0| 6f 6c 6c 3b 0d 09 52 65 | 63 74 20 72 3b 0d 0d 09 |oll;..Re|ct r;...|
|00003cc0| 69 6e 66 6f 20 3d 20 28 | 54 57 69 6e 64 6f 77 2a |info = (|TWindow*|
|00003cd0| 2a 29 47 65 74 57 52 65 | 66 43 6f 6e 28 77 69 6e |*)GetWRe|fCon(win|
|00003ce0| 64 29 3b 0d 09 74 68 65 | 54 45 20 3d 20 28 2a 2a |d);..the|TE = (**|
|00003cf0| 69 6e 66 6f 29 2e 74 68 | 65 54 45 3b 0d 09 76 53 |info).th|eTE;..vS|
|00003d00| 63 72 6f 6c 6c 20 3d 20 | 28 2a 2a 69 6e 66 6f 29 |croll = |(**info)|
|00003d10| 2e 76 53 63 72 6f 6c 6c | 3b 0d 09 69 66 20 28 61 |.vScroll|;..if (a|
|00003d20| 63 74 29 20 7b 0d 09 09 | 53 68 6f 77 43 6f 6e 74 |ct) {...|ShowCont|
|00003d30| 72 6f 6c 28 76 53 63 72 | 6f 6c 6c 29 3b 0d 09 09 |rol(vScr|oll);...|
|00003d40| 54 45 41 63 74 69 76 61 | 74 65 28 74 68 65 54 45 |TEActiva|te(theTE|
|00003d50| 29 3b 0d 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 48 |);..} el|se {...H|
|00003d60| 69 64 65 43 6f 6e 74 72 | 6f 6c 28 76 53 63 72 6f |ideContr|ol(vScro|
|00003d70| 6c 6c 29 3b 0d 09 09 54 | 45 44 65 61 63 74 69 76 |ll);...T|EDeactiv|
|00003d80| 61 74 65 28 74 68 65 54 | 45 29 3b 0d 09 7d 0d 09 |ate(theT|E);..}..|
|00003d90| 72 20 3d 20 77 69 6e 64 | 2d 3e 70 6f 72 74 52 65 |r = wind|->portRe|
|00003da0| 63 74 3b 0d 09 72 2e 74 | 6f 70 20 3d 20 72 2e 62 |ct;..r.t|op = r.b|
|00003db0| 6f 74 74 6f 6d 20 2d 20 | 31 35 3b 0d 09 72 2e 6c |ottom - |15;..r.l|
|00003dc0| 65 66 74 20 3d 20 72 2e | 72 69 67 68 74 20 2d 20 |eft = r.|right - |
|00003dd0| 31 35 3b 0d 09 49 6e 76 | 61 6c 52 65 63 74 28 26 |15;..Inv|alRect(&|
|00003de0| 72 29 3b 0d 7d 0d 0d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |r);.}...|./*-----|
|00003df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e30| 2d 2d 2d 2d 2d 2d 2d 0d | 09 55 70 64 61 74 65 20 |-------.|.Update |
|00003e40| 0d 09 0d 09 48 61 6e 64 | 6c 65 20 61 6e 20 75 70 |....Hand|le an up|
|00003e50| 64 61 74 65 20 65 76 65 | 6e 74 20 66 6f 72 20 61 |date eve|nt for a|
|00003e60| 20 74 65 78 74 20 77 69 | 6e 64 6f 77 2e 0d 09 09 | text wi|ndow....|
|00003e70| 09 0d 09 45 6e 74 72 79 | 3a 09 77 69 6e 64 20 3d |...Entry|:.wind =|
|00003e80| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 74 65 78 74 | pointer| to text|
|00003e90| 20 77 69 6e 64 6f 77 2e | 0d 2d 2d 2d 2d 2d 2d 2d | window.|.-------|
|00003ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ee0| 2d 2d 2d 2d 2d 2a 2f 0d | 0d 73 74 61 74 69 63 20 |-----*/.|.static |
|00003ef0| 76 6f 69 64 20 55 70 64 | 61 74 65 20 28 57 69 6e |void Upd|ate (Win|
|00003f00| 64 6f 77 50 74 72 20 77 | 69 6e 64 29 0d 7b 0d 09 |dowPtr w|ind).{..|
|00003f10| 54 57 69 6e 64 6f 77 20 | 2a 2a 69 6e 66 6f 3b 0d |TWindow |**info;.|
|00003f20| 09 73 68 6f 72 74 20 70 | 61 6e 65 6c 48 65 69 67 |.short p|anelHeig|
|00003f30| 68 74 2c 20 77 69 6e 64 | 57 69 64 74 68 3b 0d 09 |ht, wind|Width;..|
|00003f40| 52 65 63 74 20 72 3b 0d | 09 54 45 48 61 6e 64 6c |Rect r;.|.TEHandl|
|00003f50| 65 20 74 68 65 54 45 3b | 0d 0d 09 69 6e 66 6f 20 |e theTE;|...info |
|00003f60| 3d 20 28 54 57 69 6e 64 | 6f 77 2a 2a 29 47 65 74 |= (TWind|ow**)Get|
|00003f70| 57 52 65 66 43 6f 6e 28 | 77 69 6e 64 29 3b 0d 09 |WRefCon(|wind);..|
|00003f80| 70 61 6e 65 6c 48 65 69 | 67 68 74 20 3d 20 28 2a |panelHei|ght = (*|
|00003f90| 2a 69 6e 66 6f 29 2e 70 | 61 6e 65 6c 48 65 69 67 |*info).p|anelHeig|
|00003fa0| 68 74 3b 0d 09 74 68 65 | 54 45 20 3d 20 28 2a 2a |ht;..the|TE = (**|
|00003fb0| 69 6e 66 6f 29 2e 74 68 | 65 54 45 3b 0d 09 0d 09 |info).th|eTE;....|
|00003fc0| 72 20 3d 20 77 69 6e 64 | 2d 3e 70 6f 72 74 52 65 |r = wind|->portRe|
|00003fd0| 63 74 3b 0d 09 72 2e 74 | 6f 70 20 2b 3d 20 70 61 |ct;..r.t|op += pa|
|00003fe0| 6e 65 6c 48 65 69 67 68 | 74 3b 0d 09 43 6c 69 70 |nelHeigh|t;..Clip|
|00003ff0| 52 65 63 74 28 26 72 29 | 3b 0d 09 44 72 61 77 47 |Rect(&r)|;..DrawG|
|00004000| 72 6f 77 49 63 6f 6e 28 | 77 69 6e 64 29 3b 0d 09 |rowIcon(|wind);..|
|00004010| 43 6c 69 70 52 65 63 74 | 28 26 77 69 6e 64 2d 3e |ClipRect|(&wind->|
|00004020| 70 6f 72 74 52 65 63 74 | 29 3b 0d 09 0d 09 55 70 |portRect|);....Up|
|00004030| 64 61 74 65 43 6f 6e 74 | 72 6f 6c 73 28 77 69 6e |dateCont|rols(win|
|00004040| 64 2c 20 77 69 6e 64 2d | 3e 76 69 73 52 67 6e 29 |d, wind-|>visRgn)|
|00004050| 3b 0d 09 0d 09 69 66 20 | 28 70 61 6e 65 6c 48 65 |;....if |(panelHe|
|00004060| 69 67 68 74 20 3e 20 30 | 29 20 7b 0d 09 09 28 2a |ight > 0|) {...(*|
|00004070| 28 2a 2a 69 6e 66 6f 29 | 2e 64 72 61 77 50 61 6e |(**info)|.drawPan|
|00004080| 65 6c 29 28 77 69 6e 64 | 29 3b 0d 09 09 77 69 6e |el)(wind|);...win|
|00004090| 64 57 69 64 74 68 20 3d | 20 77 69 6e 64 2d 3e 70 |dWidth =| wind->p|
|000040a0| 6f 72 74 52 65 63 74 2e | 72 69 67 68 74 20 2d 20 |ortRect.|right - |
|000040b0| 77 69 6e 64 2d 3e 70 6f | 72 74 52 65 63 74 2e 6c |wind->po|rtRect.l|
|000040c0| 65 66 74 3b 0d 09 09 4d | 6f 76 65 54 6f 28 30 2c |eft;...M|oveTo(0,|
|000040d0| 20 70 61 6e 65 6c 48 65 | 69 67 68 74 2d 33 29 3b | panelHe|ight-3);|
|000040e0| 0d 09 09 4c 69 6e 65 54 | 6f 28 77 69 6e 64 57 69 |...LineT|o(windWi|
|000040f0| 64 74 68 2c 20 70 61 6e | 65 6c 48 65 69 67 68 74 |dth, pan|elHeight|
|00004100| 2d 33 29 3b 0d 09 09 4d | 6f 76 65 54 6f 28 30 2c |-3);...M|oveTo(0,|
|00004110| 20 70 61 6e 65 6c 48 65 | 69 67 68 74 2d 31 29 3b | panelHe|ight-1);|
|00004120| 0d 09 09 4c 69 6e 65 54 | 6f 28 77 69 6e 64 57 69 |...LineT|o(windWi|
|00004130| 64 74 68 2c 20 70 61 6e | 65 6c 48 65 69 67 68 74 |dth, pan|elHeight|
|00004140| 2d 31 29 3b 0d 09 7d 0d | 09 0d 09 54 45 55 70 64 |-1);..}.|...TEUpd|
|00004150| 61 74 65 28 26 77 69 6e | 64 2d 3e 70 6f 72 74 52 |ate(&win|d->portR|
|00004160| 65 63 74 2c 20 74 68 65 | 54 45 29 3b 0d 7d 0d 0d |ect, the|TE);.}..|
|00004170| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|00004180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000041a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000041b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000041c0| 0d 09 4d 6f 75 73 65 20 | 0d 09 0d 09 48 61 6e 64 |..Mouse |....Hand|
|000041d0| 6c 65 20 61 20 6d 6f 75 | 73 65 20 64 6f 77 6e 20 |le a mou|se down |
|000041e0| 65 76 65 6e 74 20 69 6e | 20 74 68 65 20 63 6f 6e |event in| the con|
|000041f0| 74 65 6e 74 20 61 72 65 | 61 20 6f 66 20 61 20 74 |tent are|a of a t|
|00004200| 65 78 74 20 77 69 6e 64 | 6f 77 2e 0d 09 09 09 0d |ext wind|ow......|
|00004210| 09 45 6e 74 72 79 3a 09 | 77 69 6e 64 20 3d 20 70 |.Entry:.|wind = p|
|00004220| 6f 69 6e 74 65 72 20 74 | 6f 20 74 65 78 74 20 77 |ointer t|o text w|
|00004230| 69 6e 64 6f 77 2e 0d 09 | 09 09 77 68 65 72 65 20 |indow...|..where |
|00004240| 3d 20 6c 6f 63 61 74 69 | 6f 6e 20 6f 66 20 6d 6f |= locati|on of mo|
|00004250| 75 73 65 20 64 6f 77 6e | 20 69 6e 20 6c 6f 63 61 |use down| in loca|
|00004260| 6c 20 63 6f 6f 72 64 73 | 2e 0d 09 09 09 6d 6f 64 |l coords|.....mod|
|00004270| 69 66 69 65 72 73 20 3d | 20 6d 6f 64 69 66 69 65 |ifiers =| modifie|
|00004280| 72 73 20 66 69 65 6c 64 | 20 66 72 6f 6d 20 65 76 |rs field| from ev|
|00004290| 65 6e 74 20 72 65 63 6f | 72 64 2e 0d 09 09 09 0d |ent reco|rd......|
|000042a0| 09 45 78 69 74 3a 09 66 | 75 6e 63 74 69 6f 6e 20 |.Exit:.f|unction |
|000042b0| 72 65 73 75 6c 74 20 3d | 20 65 72 72 6f 72 20 63 |result =| error c|
|000042c0| 6f 64 65 2e 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ode..---|--------|
|000042d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000042e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000042f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004310| 2d 2a 2f 0d 0d 73 74 61 | 74 69 63 20 4f 53 45 72 |-*/..sta|tic OSEr|
|00004320| 72 20 4d 6f 75 73 65 20 | 28 57 69 6e 64 6f 77 50 |r Mouse |(WindowP|
|00004330| 74 72 20 77 69 6e 64 2c | 20 50 6f 69 6e 74 20 77 |tr wind,| Point w|
|00004340| 68 65 72 65 2c 20 73 68 | 6f 72 74 20 6d 6f 64 69 |here, sh|ort modi|
|00004350| 66 69 65 72 73 29 0d 7b | 0d 09 54 57 69 6e 64 6f |fiers).{|..TWindo|
|00004360| 77 20 2a 2a 69 6e 66 6f | 3b 0d 09 54 45 48 61 6e |w **info|;..TEHan|
|00004370| 64 6c 65 20 74 68 65 54 | 45 3b 0d 09 52 65 63 74 |dle theT|E;..Rect|
|00004380| 20 76 69 65 77 52 65 63 | 74 3b 0d 09 73 68 6f 72 | viewRec|t;..shor|
|00004390| 74 20 70 61 72 74 2c 20 | 6f 6c 64 56 61 6c 2c 20 |t part, |oldVal, |
|000043a0| 64 76 3b 0d 09 43 6f 6e | 74 72 6f 6c 48 61 6e 64 |dv;..Con|trolHand|
|000043b0| 6c 65 20 63 6f 6e 74 72 | 6f 6c 2c 20 76 53 63 72 |le contr|ol, vScr|
|000043c0| 6f 6c 6c 3b 0d 09 4f 53 | 45 72 72 20 65 72 72 20 |oll;..OS|Err err |
|000043d0| 3d 20 6e 6f 45 72 72 3b | 0d 09 42 6f 6f 6c 65 61 |= noErr;|..Boolea|
|000043e0| 6e 20 64 72 61 67 67 65 | 64 20 3d 20 66 61 6c 73 |n dragge|d = fals|
|000043f0| 65 2c 20 74 72 61 73 68 | 65 64 3b 0d 09 73 68 6f |e, trash|ed;..sho|
|00004400| 72 74 20 6f 6c 64 53 65 | 6c 53 74 61 72 74 2c 20 |rt oldSe|lStart, |
|00004410| 6f 6c 64 53 65 6c 45 6e | 64 3b 0d 0d 09 69 6e 66 |oldSelEn|d;...inf|
|00004420| 6f 20 3d 20 28 54 57 69 | 6e 64 6f 77 2a 2a 29 20 |o = (TWi|ndow**) |
|00004430| 47 65 74 57 52 65 66 43 | 6f 6e 28 77 69 6e 64 29 |GetWRefC|on(wind)|
|00004440| 3b 0d 09 74 68 65 54 45 | 20 3d 20 28 2a 2a 69 6e |;..theTE| = (**in|
|00004450| 66 6f 29 2e 74 68 65 54 | 45 3b 0d 09 76 53 63 72 |fo).theT|E;..vScr|
|00004460| 6f 6c 6c 20 3d 20 28 2a | 2a 69 6e 66 6f 29 2e 76 |oll = (*|*info).v|
|00004470| 53 63 72 6f 6c 6c 3b 0d | 09 76 69 65 77 52 65 63 |Scroll;.|.viewRec|
|00004480| 74 20 3d 20 28 2a 2a 74 | 68 65 54 45 29 2e 76 69 |t = (**t|heTE).vi|
|00004490| 65 77 52 65 63 74 3b 0d | 09 49 6e 73 65 74 52 65 |ewRect;.|.InsetRe|
|000044a0| 63 74 28 26 76 69 65 77 | 52 65 63 74 2c 20 2d 6b |ct(&view|Rect, -k|
|000044b0| 54 65 78 74 4d 61 72 67 | 69 6e 2c 20 30 29 3b 0d |TextMarg|in, 0);.|
|000044c0| 09 70 61 72 74 20 3d 20 | 46 69 6e 64 43 6f 6e 74 |.part = |FindCont|
|000044d0| 72 6f 6c 28 77 68 65 72 | 65 2c 20 77 69 6e 64 2c |rol(wher|e, wind,|
|000044e0| 20 26 63 6f 6e 74 72 6f | 6c 29 3b 0d 09 69 66 20 | &contro|l);..if |
|000044f0| 28 70 61 72 74 20 21 3d | 20 30 20 26 26 20 63 6f |(part !=| 0 && co|
|00004500| 6e 74 72 6f 6c 20 3d 3d | 20 76 53 63 72 6f 6c 6c |ntrol ==| vScroll|
|00004510| 29 20 7b 0d 09 09 69 66 | 20 28 70 61 72 74 20 3d |) {...if| (part =|
|00004520| 3d 20 69 6e 54 68 75 6d | 62 29 20 7b 0d 09 09 09 |= inThum|b) {....|
|00004530| 6f 6c 64 56 61 6c 20 3d | 20 47 65 74 43 6f 6e 74 |oldVal =| GetCont|
|00004540| 72 6f 6c 56 61 6c 75 65 | 28 76 53 63 72 6f 6c 6c |rolValue|(vScroll|
|00004550| 29 3b 0d 09 09 09 54 72 | 61 63 6b 43 6f 6e 74 72 |);....Tr|ackContr|
|00004560| 6f 6c 28 76 53 63 72 6f | 6c 6c 2c 20 77 68 65 72 |ol(vScro|ll, wher|
|00004570| 65 2c 20 6e 69 6c 29 3b | 0d 09 09 09 64 76 20 3d |e, nil);|....dv =|
|00004580| 20 47 65 74 43 6f 6e 74 | 72 6f 6c 56 61 6c 75 65 | GetCont|rolValue|
|00004590| 28 76 53 63 72 6f 6c 6c | 29 20 2d 20 6f 6c 64 56 |(vScroll|) - oldV|
|000045a0| 61 6c 3b 0d 09 09 09 69 | 66 20 28 64 76 20 21 3d |al;....i|f (dv !=|
|000045b0| 20 30 29 20 54 45 53 63 | 72 6f 6c 6c 53 63 72 6f | 0) TESc|rollScro|
|000045c0| 6c 6c 54 65 78 74 28 74 | 68 65 54 45 2c 20 76 53 |llText(t|heTE, vS|
|000045d0| 63 72 6f 6c 6c 2c 20 2d | 64 76 29 3b 0d 09 09 7d |croll, -|dv);...}|
|000045e0| 20 65 6c 73 65 20 7b 0d | 09 09 09 53 65 74 43 6f | else {.|...SetCo|
|000045f0| 6e 74 72 6f 6c 52 65 66 | 65 72 65 6e 63 65 28 76 |ntrolRef|erence(v|
|00004600| 53 63 72 6f 6c 6c 2c 20 | 30 29 3b 0d 09 09 09 54 |Scroll, |0);....T|
|00004610| 72 61 63 6b 43 6f 6e 74 | 72 6f 6c 28 76 53 63 72 |rackCont|rol(vScr|
|00004620| 6f 6c 6c 2c 20 77 68 65 | 72 65 2c 20 67 53 63 72 |oll, whe|re, gScr|
|00004630| 6f 6c 6c 41 63 74 69 6f | 6e 55 50 50 29 3b 0d 09 |ollActio|nUPP);..|
|00004640| 09 09 53 65 74 43 6f 6e | 74 72 6f 6c 52 65 66 65 |..SetCon|trolRefe|
|00004650| 72 65 6e 63 65 28 76 53 | 63 72 6f 6c 6c 2c 20 31 |rence(vS|croll, 1|
|00004660| 29 3b 0d 09 09 09 54 45 | 53 63 72 6f 6c 6c 41 64 |);....TE|ScrollAd|
|00004670| 6a 75 73 74 53 63 72 6f | 6c 6c 4d 61 78 28 74 68 |justScro|llMax(th|
|00004680| 65 54 45 2c 20 76 53 63 | 72 6f 6c 6c 29 3b 0d 09 |eTE, vSc|roll);..|
|00004690| 09 7d 0d 09 7d 20 65 6c | 73 65 20 69 66 20 28 50 |.}..} el|se if (P|
|000046a0| 74 49 6e 52 65 63 74 28 | 77 68 65 72 65 2c 20 26 |tInRect(|where, &|
|000046b0| 76 69 65 77 52 65 63 74 | 29 29 20 7b 0d 09 09 69 |viewRect|)) {...i|
|000046c0| 66 20 28 67 48 61 76 65 | 44 72 61 67 4d 67 72 29 |f (gHave|DragMgr)|
|000046d0| 20 7b 0d 09 09 09 65 72 | 72 20 3d 20 44 72 61 67 | {....er|r = Drag|
|000046e0| 54 65 78 74 28 26 67 43 | 75 72 45 76 65 6e 74 2c |Text(&gC|urEvent,|
|000046f0| 20 77 68 65 72 65 2c 20 | 74 68 65 54 45 2c 20 26 | where, |theTE, &|
|00004700| 64 72 61 67 67 65 64 2c | 20 26 74 72 61 73 68 65 |dragged,| &trashe|
|00004710| 64 29 3b 0d 09 09 09 69 | 66 20 28 65 72 72 20 21 |d);....i|f (err !|
|00004720| 3d 20 6e 6f 45 72 72 29 | 20 72 65 74 75 72 6e 20 |= noErr)| return |
|00004730| 65 72 72 3b 0d 09 09 7d | 0d 09 09 69 66 20 28 77 |err;...}|...if (w|
|00004740| 69 6e 64 20 3d 3d 20 46 | 72 6f 6e 74 57 69 6e 64 |ind == F|rontWind|
|00004750| 6f 77 28 29 20 26 26 20 | 21 64 72 61 67 67 65 64 |ow() && |!dragged|
|00004760| 29 20 7b 0d 09 09 09 6f | 6c 64 53 65 6c 53 74 61 |) {....o|ldSelSta|
|00004770| 72 74 20 3d 20 28 2a 2a | 74 68 65 54 45 29 2e 73 |rt = (**|theTE).s|
|00004780| 65 6c 53 74 61 72 74 3b | 0d 09 09 09 6f 6c 64 53 |elStart;|....oldS|
|00004790| 65 6c 45 6e 64 20 3d 20 | 28 2a 2a 74 68 65 54 45 |elEnd = |(**theTE|
|000047a0| 29 2e 73 65 6c 45 6e 64 | 3b 0d 09 09 09 4d 79 54 |).selEnd|;....MyT|
|000047b0| 45 43 6c 69 63 6b 28 77 | 68 65 72 65 2c 20 28 6d |EClick(w|here, (m|
|000047c0| 6f 64 69 66 69 65 72 73 | 20 26 20 73 68 69 66 74 |odifiers| & shift|
|000047d0| 4b 65 79 29 20 21 3d 20 | 30 2c 20 74 68 65 54 45 |Key) != |0, theTE|
|000047e0| 29 3b 0d 09 09 09 65 72 | 72 20 3d 20 43 6f 6d 6d |);....er|r = Comm|
|000047f0| 61 6e 64 43 6c 69 63 6b | 28 77 69 6e 64 2c 20 74 |andClick|(wind, t|
|00004800| 68 65 54 45 2c 20 6f 6c | 64 53 65 6c 53 74 61 72 |heTE, ol|dSelStar|
|00004810| 74 2c 20 6f 6c 64 53 65 | 6c 45 6e 64 2c 20 6d 6f |t, oldSe|lEnd, mo|
|00004820| 64 69 66 69 65 72 73 29 | 3b 0d 09 09 09 69 66 20 |difiers)|;....if |
|00004830| 28 65 72 72 20 21 3d 20 | 6e 6f 45 72 72 29 20 72 |(err != |noErr) r|
|00004840| 65 74 75 72 6e 20 65 72 | 72 3b 0d 09 09 7d 0d 20 |eturn er|r;...}. |
|00004850| 09 7d 20 65 6c 73 65 20 | 69 66 20 28 77 68 65 72 |.} else |if (wher|
|00004860| 65 2e 76 20 3c 20 28 2a | 2a 69 6e 66 6f 29 2e 70 |e.v < (*|*info).p|
|00004870| 61 6e 65 6c 48 65 69 67 | 68 74 29 20 7b 0d 20 09 |anelHeig|ht) {. .|
|00004880| 09 43 68 65 63 6b 41 62 | 6f 75 74 57 69 6e 64 6f |.CheckAb|outWindo|
|00004890| 77 45 61 73 74 65 72 45 | 67 67 28 77 69 6e 64 2c |wEasterE|gg(wind,|
|000048a0| 20 77 68 65 72 65 2c 20 | 6d 6f 64 69 66 69 65 72 | where, |modifier|
|000048b0| 73 29 3b 0d 20 09 7d 0d | 20 09 72 65 74 75 72 6e |s);. .}.| .return|
|000048c0| 20 6e 6f 45 72 72 3b 0d | 7d 0d 0d 0d 0d 2f 2a 2d | noErr;.|}..../*-|
|000048d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000048e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000048f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 09 44 72 61 |--------|---..Dra|
|00004920| 67 67 61 62 6c 65 0d 09 | 0d 09 44 65 74 65 72 6d |ggable..|..Determ|
|00004930| 69 6e 65 20 77 68 65 74 | 68 65 72 20 61 20 6d 6f |ine whet|her a mo|
|00004940| 75 73 65 20 64 6f 77 6e | 20 65 76 65 6e 74 20 69 |use down| event i|
|00004950| 73 20 6f 6e 20 61 20 64 | 72 61 67 67 61 62 6c 65 |s on a d|raggable|
|00004960| 20 6f 62 6a 65 63 74 20 | 69 6e 20 61 20 0d 09 74 | object |in a ..t|
|00004970| 65 78 74 20 77 69 6e 64 | 6f 77 2e 0d 09 0d 09 45 |ext wind|ow.....E|
|00004980| 6e 74 72 79 3a 09 77 69 | 6e 64 20 3d 20 70 6f 69 |ntry:.wi|nd = poi|
|00004990| 6e 74 65 72 20 74 6f 20 | 74 65 78 74 20 77 69 6e |nter to |text win|
|000049a0| 64 6f 77 2e 0d 09 09 09 | 77 68 65 72 65 20 3d 20 |dow.....|where = |
|000049b0| 6c 6f 63 61 74 69 6f 6e | 20 6f 66 20 6d 6f 75 73 |location| of mous|
|000049c0| 65 20 64 6f 77 6e 20 65 | 76 65 6e 74 2c 20 69 6e |e down e|vent, in|
|000049d0| 20 6c 6f 63 61 6c 20 63 | 6f 6f 72 64 69 6e 61 74 | local c|oordinat|
|000049e0| 65 73 2e 0d 09 09 09 6d | 6f 64 69 66 69 65 72 73 |es.....m|odifiers|
|000049f0| 20 3d 20 6d 6f 64 69 66 | 69 65 72 73 20 66 69 65 | = modif|iers fie|
|00004a00| 6c 64 20 66 72 6f 6d 20 | 65 76 65 6e 74 20 72 65 |ld from |event re|
|00004a10| 63 6f 72 64 2e 0d 09 09 | 09 0d 09 45 78 69 74 3a |cord....|...Exit:|
|00004a20| 09 66 75 6e 63 74 69 6f | 6e 20 72 65 73 75 6c 74 |.functio|n result|
|00004a30| 20 3d 20 74 72 75 65 20 | 69 66 20 6f 62 6a 65 63 | = true |if objec|
|00004a40| 74 20 69 73 20 64 72 61 | 67 67 61 62 6c 65 2e 0d |t is dra|ggable..|
|00004a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 2f 0d 0d |--------|----*/..|
|00004aa0| 73 74 61 74 69 63 20 42 | 6f 6f 6c 65 61 6e 20 44 |static B|oolean D|
|00004ab0| 72 61 67 67 61 62 6c 65 | 20 28 57 69 6e 64 6f 77 |raggable| (Window|
|00004ac0| 50 74 72 20 77 69 6e 64 | 2c 20 50 6f 69 6e 74 20 |Ptr wind|, Point |
|00004ad0| 77 68 65 72 65 2c 20 73 | 68 6f 72 74 20 6d 6f 64 |where, s|hort mod|
|00004ae0| 69 66 69 65 72 73 29 0d | 7b 0d 09 54 57 69 6e 64 |ifiers).|{..TWind|
|00004af0| 6f 77 20 2a 2a 69 6e 66 | 6f 3b 0d 09 54 45 48 61 |ow **inf|o;..TEHa|
|00004b00| 6e 64 6c 65 20 74 68 65 | 54 45 3b 0d 09 0d 09 69 |ndle the|TE;....i|
|00004b10| 6e 66 6f 20 3d 20 28 54 | 57 69 6e 64 6f 77 2a 2a |nfo = (T|Window**|
|00004b20| 29 47 65 74 57 52 65 66 | 43 6f 6e 28 77 69 6e 64 |)GetWRef|Con(wind|
|00004b30| 29 3b 0d 09 74 68 65 54 | 45 20 3d 20 28 2a 2a 69 |);..theT|E = (**i|
|00004b40| 6e 66 6f 29 2e 74 68 65 | 54 45 3b 0d 09 72 65 74 |nfo).the|TE;..ret|
|00004b50| 75 72 6e 20 50 74 49 6e | 54 45 48 69 6c 69 74 65 |urn PtIn|TEHilite|
|00004b60| 52 67 6e 28 77 68 65 72 | 65 2c 20 74 68 65 54 45 |Rgn(wher|e, theTE|
|00004b70| 29 3b 0d 7d 0d 0d 0d 0d | 2f 2a 2d 2d 2d 2d 2d 2d |);.}....|/*------|
|00004b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004bc0| 2d 2d 2d 2d 2d 2d 0d 09 | 4b 65 79 20 0d 09 0d 09 |------..|Key ....|
|00004bd0| 48 61 6e 64 6c 65 20 61 | 20 6b 65 79 20 64 6f 77 |Handle a| key dow|
|00004be0| 6e 20 65 76 65 6e 74 20 | 66 6f 72 20 61 20 74 65 |n event |for a te|
|00004bf0| 78 74 20 77 69 6e 64 6f | 77 2e 0d 09 09 09 0d 09 |xt windo|w.......|
|00004c00| 45 6e 74 72 79 3a 09 77 | 69 6e 64 20 3d 20 70 6f |Entry:.w|ind = po|
|00004c10| 69 6e 74 65 72 20 74 6f | 20 74 65 78 74 20 77 69 |inter to| text wi|
|00004c20| 6e 64 6f 77 2e 0d 09 09 | 09 74 68 65 43 68 61 72 |ndow....|.theChar|
|00004c30| 20 3d 20 41 53 43 49 49 | 20 63 6f 64 65 20 6f 66 | = ASCII| code of|
|00004c40| 20 6b 65 79 2e 0d 09 09 | 09 74 68 65 4b 65 79 20 | key....|.theKey |
|00004c50| 3d 20 6b 65 79 62 6f 61 | 72 64 20 63 6f 64 65 20 |= keyboa|rd code |
|00004c60| 6f 66 20 6b 65 79 2e 0d | 09 09 09 6d 6f 64 69 66 |of key..|...modif|
|00004c70| 69 65 72 73 20 3d 20 6d | 6f 64 69 66 69 65 72 73 |iers = m|odifiers|
|00004c80| 20 66 69 65 6c 64 20 66 | 72 6f 6d 20 65 76 65 6e | field f|rom even|
|00004c90| 74 20 72 65 63 6f 72 64 | 2e 0d 09 09 09 0d 09 45 |t record|.......E|
|00004ca0| 78 69 74 3a 09 66 75 6e | 63 74 69 6f 6e 20 72 65 |xit:.fun|ction re|
|00004cb0| 73 75 6c 74 20 3d 20 65 | 72 72 6f 72 20 63 6f 64 |sult = e|rror cod|
|00004cc0| 65 2e 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |e..-----|--------|
|00004cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |--------|-------*|
|00004d10| 2f 0d 0d 73 74 61 74 69 | 63 20 4f 53 45 72 72 20 |/..stati|c OSErr |
|00004d20| 4b 65 79 20 28 57 69 6e | 64 6f 77 50 74 72 20 77 |Key (Win|dowPtr w|
|00004d30| 69 6e 64 2c 20 75 6e 73 | 69 67 6e 65 64 20 63 68 |ind, uns|igned ch|
|00004d40| 61 72 20 74 68 65 43 68 | 61 72 2c 20 75 6e 73 69 |ar theCh|ar, unsi|
|00004d50| 67 6e 65 64 20 63 68 61 | 72 20 74 68 65 4b 65 79 |gned cha|r theKey|
|00004d60| 2c 20 0d 09 73 68 6f 72 | 74 20 6d 6f 64 69 66 69 |, ..shor|t modifi|
|00004d70| 65 72 73 29 0d 7b 0d 09 | 54 57 69 6e 64 6f 77 20 |ers).{..|TWindow |
|00004d80| 2a 2a 69 6e 66 6f 3b 0d | 09 43 6f 6e 74 72 6f 6c |**info;.|.Control|
|00004d90| 48 61 6e 64 6c 65 20 76 | 53 63 72 6f 6c 6c 3b 0d |Handle v|Scroll;.|
|00004da0| 09 54 45 48 61 6e 64 6c | 65 20 74 68 65 54 45 3b |.TEHandl|e theTE;|
|00004db0| 0d 09 4f 53 45 72 72 20 | 65 72 72 20 3d 20 6e 6f |..OSErr |err = no|
|00004dc0| 45 72 72 3b 0d 09 73 68 | 6f 72 74 20 73 63 72 6f |Err;..sh|ort scro|
|00004dd0| 6c 6c 49 6e 74 6f 56 69 | 65 77 3b 0d 09 54 4b 65 |llIntoVi|ew;..TKe|
|00004de0| 79 70 61 64 4b 65 79 20 | 6b 65 79 70 61 64 4b 65 |ypadKey |keypadKe|
|00004df0| 79 3b 0d 09 42 6f 6f 6c | 65 61 6e 20 69 73 41 72 |y;..Bool|ean isAr|
|00004e00| 72 6f 77 3b 0d 0d 09 69 | 6e 66 6f 20 3d 20 28 54 |row;...i|nfo = (T|
|00004e10| 57 69 6e 64 6f 77 2a 2a | 29 47 65 74 57 52 65 66 |Window**|)GetWRef|
|00004e20| 43 6f 6e 28 77 69 6e 64 | 29 3b 0d 09 76 53 63 72 |Con(wind|);..vScr|
|00004e30| 6f 6c 6c 20 3d 20 28 2a | 2a 69 6e 66 6f 29 2e 76 |oll = (*|*info).v|
|00004e40| 53 63 72 6f 6c 6c 3b 0d | 09 74 68 65 54 45 20 3d |Scroll;.|.theTE =|
|00004e50| 20 28 2a 2a 69 6e 66 6f | 29 2e 74 68 65 54 45 3b | (**info|).theTE;|
|00004e60| 0d 09 69 73 41 72 72 6f | 77 20 3d 20 49 73 41 72 |..isArro|w = IsAr|
|00004e70| 72 6f 77 4b 65 79 28 74 | 68 65 43 68 61 72 29 3b |rowKey(t|heChar);|
|00004e80| 0d 09 0d 09 69 66 20 28 | 28 6d 6f 64 69 66 69 65 |....if (|(modifie|
|00004e90| 72 73 20 26 20 63 6d 64 | 4b 65 79 29 20 21 3d 20 |rs & cmd|Key) != |
|00004ea0| 30 20 26 26 20 21 69 73 | 41 72 72 6f 77 29 20 7b |0 && !is|Arrow) {|
|00004eb0| 0d 09 09 53 79 73 42 65 | 65 70 28 30 29 3b 0d 09 |...SysBe|ep(0);..|
|00004ec0| 09 72 65 74 75 72 6e 20 | 6e 6f 45 72 72 3b 0d 09 |.return |noErr;..|
|00004ed0| 7d 0d 0d 09 69 66 20 28 | 67 50 72 65 66 73 2e 6b |}...if (|gPrefs.k|
|00004ee0| 65 79 70 61 64 53 68 6f | 72 74 63 75 74 73 20 26 |eypadSho|rtcuts &|
|00004ef0| 26 20 49 73 4b 65 79 70 | 61 64 4b 65 79 28 74 68 |& IsKeyp|adKey(th|
|00004f00| 65 43 68 61 72 2c 20 74 | 68 65 4b 65 79 2c 20 26 |eChar, t|heKey, &|
|00004f10| 6b 65 79 70 61 64 4b 65 | 79 29 29 20 7b 0d 09 09 |keypadKe|y)) {...|
|00004f20| 73 77 69 74 63 68 20 28 | 6b 65 79 70 61 64 4b 65 |switch (|keypadKe|
|00004f30| 79 29 20 7b 0d 09 09 09 | 63 61 73 65 20 6b 4b 65 |y) {....|case kKe|
|00004f40| 79 70 61 64 45 71 75 61 | 6c 4b 65 79 3a 0d 09 09 |ypadEqua|lKey:...|
|00004f50| 09 09 44 6f 53 65 6c 65 | 63 74 41 6c 6c 28 77 69 |..DoSele|ctAll(wi|
|00004f60| 6e 64 29 3b 0d 09 09 09 | 09 72 65 74 75 72 6e 20 |nd);....|.return |
|00004f70| 6e 6f 45 72 72 3b 0d 09 | 09 09 63 61 73 65 20 6b |noErr;..|..case k|
|00004f80| 4b 65 79 70 61 64 53 74 | 61 72 4b 65 79 3a 0d 09 |KeypadSt|arKey:..|
|00004f90| 09 09 09 72 65 74 75 72 | 6e 20 44 6f 43 6c 6f 73 |...retur|n DoClos|
|00004fa0| 65 28 77 69 6e 64 29 3b | 0d 09 09 09 63 61 73 65 |e(wind);|....case|
|00004fb0| 20 6b 4b 65 79 70 61 64 | 31 4b 65 79 3a 0d 09 09 | kKeypad|1Key:...|
|00004fc0| 09 09 54 45 53 63 72 6f | 6c 6c 53 63 72 6f 6c 6c |..TEScro|llScroll|
|00004fd0| 42 79 50 61 72 74 43 6f | 64 65 28 74 68 65 54 45 |ByPartCo|de(theTE|
|00004fe0| 2c 20 76 53 63 72 6f 6c | 6c 2c 20 6b 53 63 72 6f |, vScrol|l, kScro|
|00004ff0| 6c 6c 54 6f 45 6e 64 29 | 3b 0d 09 09 09 09 72 65 |llToEnd)|;.....re|
|00005000| 74 75 72 6e 20 6e 6f 45 | 72 72 3b 0d 09 09 09 63 |turn noE|rr;....c|
|00005010| 61 73 65 20 6b 4b 65 79 | 70 61 64 32 4b 65 79 3a |ase kKey|pad2Key:|
|00005020| 0d 09 09 09 09 54 45 53 | 63 72 6f 6c 6c 53 63 72 |.....TES|crollScr|
|00005030| 6f 6c 6c 42 79 50 61 72 | 74 43 6f 64 65 28 74 68 |ollByPar|tCode(th|
|00005040| 65 54 45 2c 20 76 53 63 | 72 6f 6c 6c 2c 20 69 6e |eTE, vSc|roll, in|
|00005050| 44 6f 77 6e 42 75 74 74 | 6f 6e 29 3b 0d 09 09 09 |DownButt|on);....|
|00005060| 09 72 65 74 75 72 6e 20 | 6e 6f 45 72 72 3b 0d 09 |.return |noErr;..|
|00005070| 09 09 63 61 73 65 20 6b | 4b 65 79 70 61 64 33 4b |..case k|Keypad3K|
|00005080| 65 79 3a 0d 09 09 09 09 | 54 45 53 63 72 6f 6c 6c |ey:.....|TEScroll|
|00005090| 53 63 72 6f 6c 6c 42 79 | 50 61 72 74 43 6f 64 65 |ScrollBy|PartCode|
|000050a0| 28 74 68 65 54 45 2c 20 | 76 53 63 72 6f 6c 6c 2c |(theTE, |vScroll,|
|000050b0| 20 69 6e 50 61 67 65 44 | 6f 77 6e 29 3b 0d 09 09 | inPageD|own);...|
|000050c0| 09 09 72 65 74 75 72 6e | 20 6e 6f 45 72 72 3b 0d |..return| noErr;.|
|000050d0| 09 09 09 63 61 73 65 20 | 6b 4b 65 79 70 61 64 37 |...case |kKeypad7|
|000050e0| 4b 65 79 3a 0d 09 09 09 | 09 54 45 53 63 72 6f 6c |Key:....|.TEScrol|
|000050f0| 6c 53 63 72 6f 6c 6c 42 | 79 50 61 72 74 43 6f 64 |lScrollB|yPartCod|
|00005100| 65 28 74 68 65 54 45 2c | 20 76 53 63 72 6f 6c 6c |e(theTE,| vScroll|
|00005110| 2c 20 6b 53 63 72 6f 6c | 6c 54 6f 48 6f 6d 65 29 |, kScrol|lToHome)|
|00005120| 3b 0d 09 09 09 09 72 65 | 74 75 72 6e 20 6e 6f 45 |;.....re|turn noE|
|00005130| 72 72 3b 0d 09 09 09 63 | 61 73 65 20 6b 4b 65 79 |rr;....c|ase kKey|
|00005140| 70 61 64 38 4b 65 79 3a | 0d 09 09 09 09 54 45 53 |pad8Key:|.....TES|
|00005150| 63 72 6f 6c 6c 53 63 72 | 6f 6c 6c 42 79 50 61 72 |crollScr|ollByPar|
|00005160| 74 43 6f 64 65 28 74 68 | 65 54 45 2c 20 76 53 63 |tCode(th|eTE, vSc|
|00005170| 72 6f 6c 6c 2c 20 69 6e | 55 70 42 75 74 74 6f 6e |roll, in|UpButton|
|00005180| 29 3b 0d 09 09 09 09 72 | 65 74 75 72 6e 20 6e 6f |);.....r|eturn no|
|00005190| 45 72 72 3b 0d 09 09 09 | 63 61 73 65 20 6b 4b 65 |Err;....|case kKe|
|000051a0| 79 70 61 64 39 4b 65 79 | 3a 0d 09 09 09 09 54 45 |ypad9Key|:.....TE|
|000051b0| 53 63 72 6f 6c 6c 53 63 | 72 6f 6c 6c 42 79 50 61 |ScrollSc|rollByPa|
|000051c0| 72 74 43 6f 64 65 28 74 | 68 65 54 45 2c 20 76 53 |rtCode(t|heTE, vS|
|000051d0| 63 72 6f 6c 6c 2c 20 69 | 6e 50 61 67 65 55 70 29 |croll, i|nPageUp)|
|000051e0| 3b 0d 09 09 09 09 72 65 | 74 75 72 6e 20 6e 6f 45 |;.....re|turn noE|
|000051f0| 72 72 3b 0d 09 09 09 64 | 65 66 61 75 6c 74 3a 0d |rr;....d|efault:.|
|00005200| 09 09 09 09 53 79 73 42 | 65 65 70 28 30 29 3b 0d |....SysB|eep(0);.|
|00005210| 09 09 09 09 72 65 74 75 | 72 6e 20 6e 6f 45 72 72 |....retu|rn noErr|
|00005220| 3b 0d 09 09 7d 0d 09 7d | 0d 09 0d 09 69 66 20 28 |;...}..}|....if (|
|00005230| 74 68 65 43 68 61 72 20 | 3d 3d 20 70 61 67 65 55 |theChar |== pageU|
|00005240| 70 4b 65 79 29 20 7b 0d | 09 09 54 45 53 63 72 6f |pKey) {.|..TEScro|
|00005250| 6c 6c 53 63 72 6f 6c 6c | 42 79 50 61 72 74 43 6f |llScroll|ByPartCo|
|00005260| 64 65 28 74 68 65 54 45 | 2c 20 76 53 63 72 6f 6c |de(theTE|, vScrol|
|00005270| 6c 2c 20 69 6e 50 61 67 | 65 55 70 29 3b 0d 09 09 |l, inPag|eUp);...|
|00005280| 72 65 74 75 72 6e 20 6e | 6f 45 72 72 3b 0d 09 7d |return n|oErr;..}|
|00005290| 0d 09 69 66 20 28 74 68 | 65 43 68 61 72 20 3d 3d |..if (th|eChar ==|
|000052a0| 20 70 61 67 65 44 6f 77 | 6e 4b 65 79 29 20 7b 0d | pageDow|nKey) {.|
|000052b0| 09 09 54 45 53 63 72 6f | 6c 6c 53 63 72 6f 6c 6c |..TEScro|llScroll|
|000052c0| 42 79 50 61 72 74 43 6f | 64 65 28 74 68 65 54 45 |ByPartCo|de(theTE|
|000052d0| 2c 20 76 53 63 72 6f 6c | 6c 2c 20 69 6e 50 61 67 |, vScrol|l, inPag|
|000052e0| 65 44 6f 77 6e 29 3b 0d | 09 09 72 65 74 75 72 6e |eDown);.|..return|
|000052f0| 20 6e 6f 45 72 72 3b 0d | 09 7d 0d 09 69 66 20 28 | noErr;.|.}..if (|
|00005300| 74 68 65 43 68 61 72 20 | 3d 3d 20 68 6f 6d 65 4b |theChar |== homeK|
|00005310| 65 79 29 20 7b 0d 09 09 | 54 45 53 63 72 6f 6c 6c |ey) {...|TEScroll|
|00005320| 53 63 72 6f 6c 6c 42 79 | 50 61 72 74 43 6f 64 65 |ScrollBy|PartCode|
|00005330| 28 74 68 65 54 45 2c 20 | 76 53 63 72 6f 6c 6c 2c |(theTE, |vScroll,|
|00005340| 20 6b 53 63 72 6f 6c 6c | 54 6f 48 6f 6d 65 29 3b | kScroll|ToHome);|
|00005350| 0d 09 09 72 65 74 75 72 | 6e 20 6e 6f 45 72 72 3b |...retur|n noErr;|
|00005360| 0d 09 7d 0d 09 69 66 20 | 28 74 68 65 43 68 61 72 |..}..if |(theChar|
|00005370| 20 3d 3d 20 65 6e 64 4b | 65 79 29 20 7b 0d 09 09 | == endK|ey) {...|
|00005380| 54 45 53 63 72 6f 6c 6c | 53 63 72 6f 6c 6c 42 79 |TEScroll|ScrollBy|
|00005390| 50 61 72 74 43 6f 64 65 | 28 74 68 65 54 45 2c 20 |PartCode|(theTE, |
|000053a0| 76 53 63 72 6f 6c 6c 2c | 20 6b 53 63 72 6f 6c 6c |vScroll,| kScroll|
|000053b0| 54 6f 45 6e 64 29 3b 0d | 09 09 72 65 74 75 72 6e |ToEnd);.|..return|
|000053c0| 20 6e 6f 45 72 72 3b 0d | 09 7d 0d 09 0d 09 69 66 | noErr;.|.}....if|
|000053d0| 20 28 69 73 41 72 72 6f | 77 29 20 7b 0d 09 09 54 | (isArro|w) {...T|
|000053e0| 45 41 72 72 6f 77 4b 65 | 79 28 74 68 65 43 68 61 |EArrowKe|y(theCha|
|000053f0| 72 2c 20 6d 6f 64 69 66 | 69 65 72 73 2c 20 74 68 |r, modif|iers, th|
|00005400| 65 54 45 2c 20 30 2c 20 | 26 67 50 72 65 76 45 76 |eTE, 0, |&gPrevEv|
|00005410| 65 6e 74 2c 20 26 73 63 | 72 6f 6c 6c 49 6e 74 6f |ent, &sc|rollInto|
|00005420| 56 69 65 77 29 3b 0d 09 | 09 54 45 53 63 72 6f 6c |View);..|.TEScrol|
|00005430| 6c 53 63 72 6f 6c 6c 52 | 61 6e 67 65 49 6e 74 6f |lScrollR|angeInto|
|00005440| 56 69 65 77 28 74 68 65 | 54 45 2c 20 73 63 72 6f |View(the|TE, scro|
|00005450| 6c 6c 49 6e 74 6f 56 69 | 65 77 2c 20 73 63 72 6f |llIntoVi|ew, scro|
|00005460| 6c 6c 49 6e 74 6f 56 69 | 65 77 2c 20 76 53 63 72 |llIntoVi|ew, vScr|
|00005470| 6f 6c 6c 29 3b 0d 09 09 | 72 65 74 75 72 6e 20 6e |oll);...|return n|
|00005480| 6f 45 72 72 3b 0d 09 7d | 0d 09 0d 09 69 66 20 28 |oErr;..}|....if (|
|00005490| 67 50 72 65 66 73 2e 6b | 65 79 62 6f 61 72 64 53 |gPrefs.k|eyboardS|
|000054a0| 68 6f 72 74 63 75 74 73 | 29 20 7b 0d 09 0d 09 09 |hortcuts|) {.....|
|000054b0| 69 66 20 28 74 68 65 43 | 68 61 72 20 3d 3d 20 27 |if (theC|har == '|
|000054c0| 20 27 29 20 7b 0d 09 09 | 09 54 45 53 63 72 6f 6c | ') {...|.TEScrol|
|000054d0| 6c 53 63 72 6f 6c 6c 42 | 79 50 61 72 74 43 6f 64 |lScrollB|yPartCod|
|000054e0| 65 28 74 68 65 54 45 2c | 20 76 53 63 72 6f 6c 6c |e(theTE,| vScroll|
|000054f0| 2c 20 69 6e 50 61 67 65 | 44 6f 77 6e 29 3b 0d 09 |, inPage|Down);..|
|00005500| 09 09 72 65 74 75 72 6e | 20 6e 6f 45 72 72 3b 0d |..return| noErr;.|
|00005510| 09 09 7d 0d 09 09 0d 09 | 09 74 68 65 43 68 61 72 |..}.....|.theChar|
|00005520| 20 3d 20 74 6f 6c 6f 77 | 65 72 28 74 68 65 43 68 | = tolow|er(theCh|
|00005530| 61 72 29 3b 0d 09 09 0d | 09 09 69 66 20 28 74 68 |ar);....|..if (th|
|00005540| 65 43 68 61 72 20 3d 3d | 20 27 77 27 29 20 7b 0d |eChar ==| 'w') {.|
|00005550| 09 09 09 72 65 74 75 72 | 6e 20 44 6f 43 6c 6f 73 |...retur|n DoClos|
|00005560| 65 28 77 69 6e 64 29 3b | 0d 09 09 7d 0d 09 09 0d |e(wind);|...}....|
|00005570| 09 09 69 66 20 28 74 68 | 65 43 68 61 72 20 3d 3d |..if (th|eChar ==|
|00005580| 20 27 61 27 29 20 7b 0d | 09 09 09 44 6f 53 65 6c | 'a') {.|...DoSel|
|00005590| 65 63 74 41 6c 6c 28 77 | 69 6e 64 29 3b 0d 09 09 |ectAll(w|ind);...|
|000055a0| 09 72 65 74 75 72 6e 20 | 6e 6f 45 72 72 3b 0d 09 |.return |noErr;..|
|000055b0| 09 7d 0d 09 09 0d 09 7d | 0d 0d 09 53 79 73 42 65 |.}.....}|...SysBe|
|000055c0| 65 70 28 30 29 3b 0d 09 | 0d 09 72 65 74 75 72 6e |ep(0);..|..return|
|000055d0| 20 6e 6f 45 72 72 3b 0d | 7d 0d 0d 0d 0d 2f 2a 2d | noErr;.|}..../*-|
|000055e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 09 47 72 6f |--------|---..Gro|
|00005630| 77 20 0d 09 0d 09 48 61 | 6e 64 6c 65 20 61 20 6d |w ....Ha|ndle a m|
|00005640| 6f 75 73 65 20 64 6f 77 | 6e 20 65 76 65 6e 74 20 |ouse dow|n event |
|00005650| 69 6e 20 74 68 65 20 67 | 72 6f 77 20 62 6f 78 20 |in the g|row box |
|00005660| 6f 66 20 61 20 74 65 78 | 74 20 77 69 6e 64 6f 77 |of a tex|t window|
|00005670| 2e 0d 09 0d 09 45 6e 74 | 72 79 3a 09 77 69 6e 64 |.....Ent|ry:.wind|
|00005680| 20 3d 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 74 65 | = point|er to te|
|00005690| 78 74 20 77 69 6e 64 6f | 77 2e 0d 09 09 09 77 68 |xt windo|w.....wh|
|000056a0| 65 72 65 20 3d 20 6c 6f | 63 61 74 69 6f 6e 20 6f |ere = lo|cation o|
|000056b0| 66 20 6d 6f 75 73 65 20 | 64 6f 77 6e 20 65 76 65 |f mouse |down eve|
|000056c0| 6e 74 2c 20 69 6e 20 67 | 6c 6f 62 61 6c 20 63 6f |nt, in g|lobal co|
|000056d0| 6f 72 64 69 6e 61 74 65 | 73 2e 0d 09 09 09 0d 09 |ordinate|s.......|
|000056e0| 45 78 69 74 3a 09 66 75 | 6e 63 74 69 6f 6e 20 72 |Exit:.fu|nction r|
|000056f0| 65 73 75 6c 74 20 3d 20 | 65 72 72 6f 72 20 63 6f |esult = |error co|
|00005700| 64 65 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |de..----|--------|
|00005710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005750| 2a 2f 0d 0d 73 74 61 74 | 69 63 20 4f 53 45 72 72 |*/..stat|ic OSErr|
|00005760| 20 47 72 6f 77 20 28 57 | 69 6e 64 6f 77 50 74 72 | Grow (W|indowPtr|
|00005770| 20 77 69 6e 64 2c 20 50 | 6f 69 6e 74 20 77 68 65 | wind, P|oint whe|
|00005780| 72 65 29 0d 7b 0d 09 52 | 65 63 74 20 73 69 7a 65 |re).{..R|ect size|
|00005790| 52 65 63 74 3b 0d 09 6c | 6f 6e 67 20 73 69 7a 65 |Rect;..l|ong size|
|000057a0| 3b 0d 09 73 68 6f 72 74 | 20 77 69 64 74 68 2c 20 |;..short| width, |
|000057b0| 68 65 69 67 68 74 3b 0d | 09 0d 09 53 65 74 52 65 |height;.|...SetRe|
|000057c0| 63 74 28 26 73 69 7a 65 | 52 65 63 74 2c 20 6b 4d |ct(&size|Rect, kM|
|000057d0| 69 6e 57 69 6e 64 6f 77 | 57 69 64 74 68 2c 20 4d |inWindow|Width, M|
|000057e0| 69 6e 48 65 69 67 68 74 | 28 77 69 6e 64 29 2c 20 |inHeight|(wind), |
|000057f0| 30 78 37 66 66 66 2c 20 | 30 78 37 66 66 66 29 3b |0x7fff, |0x7fff);|
|00005800| 0d 09 73 69 7a 65 20 3d | 20 47 72 6f 77 57 69 6e |..size =| GrowWin|
|00005810| 64 6f 77 28 77 69 6e 64 | 2c 20 77 68 65 72 65 2c |dow(wind|, where,|
|00005820| 20 26 73 69 7a 65 52 65 | 63 74 29 3b 0d 09 0d 09 | &sizeRe|ct);....|
|00005830| 69 66 20 28 73 69 7a 65 | 20 20 21 3d 20 30 29 20 |if (size|  != 0) |
|00005840| 7b 0d 09 09 77 69 64 74 | 68 20 3d 20 4c 6f 57 6f |{...widt|h = LoWo|
|00005850| 72 64 28 73 69 7a 65 29 | 3b 0d 09 09 68 65 69 67 |rd(size)|;...heig|
|00005860| 68 74 20 3d 20 48 69 57 | 6f 72 64 28 73 69 7a 65 |ht = HiW|ord(size|
|00005870| 29 3b 0d 09 09 46 69 78 | 48 65 69 67 68 74 28 77 |);...Fix|Height(w|
|00005880| 69 6e 64 2c 20 26 68 65 | 69 67 68 74 29 3b 0d 09 |ind, &he|ight);..|
|00005890| 09 53 69 7a 65 57 69 6e | 64 6f 77 28 77 69 6e 64 |.SizeWin|dow(wind|
|000058a0| 2c 20 77 69 64 74 68 2c | 20 68 65 69 67 68 74 2c |, width,| height,|
|000058b0| 20 66 61 6c 73 65 29 3b | 0d 09 09 52 65 73 69 7a | false);|...Resiz|
|000058c0| 65 43 6f 6e 74 65 6e 74 | 73 28 77 69 6e 64 29 3b |eContent|s(wind);|
|000058d0| 0d 09 7d 0d 09 0d 09 72 | 65 74 75 72 6e 20 6e 6f |..}....r|eturn no|
|000058e0| 45 72 72 3b 0d 7d 0d 0d | 0d 0d 2f 2a 2d 2d 2d 2d |Err;.}..|../*----|
|000058f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005930| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 5a 6f 6f 6d 0d 09 |--------|..Zoom..|
|00005940| 0d 09 5a 6f 6f 6d 20 61 | 20 74 65 78 74 20 77 69 |..Zoom a| text wi|
|00005950| 6e 64 6f 77 2e 0d 09 0d | 09 45 6e 74 72 79 3a 09 |ndow....|.Entry:.|
|00005960| 77 69 6e 64 20 3d 20 70 | 6f 69 6e 74 65 72 20 74 |wind = p|ointer t|
|00005970| 6f 20 74 65 78 74 20 77 | 69 6e 64 6f 77 2e 0d 09 |o text w|indow...|
|00005980| 09 09 7a 6f 6f 6d 44 69 | 72 20 3d 20 7a 6f 6f 6d |..zoomDi|r = zoom|
|00005990| 20 64 69 72 65 63 74 69 | 6f 6e 20 3d 20 69 6e 5a | directi|on = inZ|
|000059a0| 6f 6f 6d 49 6e 20 6f 72 | 20 69 6e 5a 6f 6f 6d 4f |oomIn or| inZoomO|
|000059b0| 75 74 2e 0d 09 09 09 0d | 09 45 78 69 74 3a 09 66 |ut......|.Exit:.f|
|000059c0| 75 6e 63 74 69 6f 6e 20 | 72 65 73 75 6c 74 20 3d |unction |result =|
|000059d0| 20 65 72 72 6f 72 20 63 | 6f 64 65 2e 0d 2d 2d 2d | error c|ode..---|
|000059e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 73 74 61 |--------|-*/..sta|
|00005a30| 74 69 63 20 4f 53 45 72 | 72 20 5a 6f 6f 6d 20 28 |tic OSEr|r Zoom (|
|00005a40| 57 69 6e 64 6f 77 50 74 | 72 20 77 69 6e 64 2c 20 |WindowPt|r wind, |
|00005a50| 73 68 6f 72 74 20 7a 6f | 6f 6d 44 69 72 29 0d 7b |short zo|omDir).{|
|00005a60| 0d 09 54 57 69 6e 64 6f | 77 20 2a 2a 69 6e 66 6f |..TWindo|w **info|
|00005a70| 3b 0d 09 73 68 6f 72 74 | 20 77 69 64 74 68 2c 20 |;..short| width, |
|00005a80| 68 65 69 67 68 74 2c 20 | 6c 69 6e 65 48 65 69 67 |height, |lineHeig|
|00005a90| 68 74 2c 20 6d 69 6e 48 | 65 69 67 68 74 3b 0d 09 |ht, minH|eight;..|
|00005aa0| 52 65 63 74 20 7a 6f 6f | 6d 52 65 63 74 2c 20 72 |Rect zoo|mRect, r|
|00005ab0| 3b 09 0d 09 57 53 74 61 | 74 65 44 61 74 61 20 2a |;...WSta|teData *|
|00005ac0| 2a 77 53 74 61 74 65 3b | 0d 09 46 6f 6e 74 49 6e |*wState;|..FontIn|
|00005ad0| 66 6f 20 66 49 6e 66 6f | 3b 0d 09 54 45 48 61 6e |fo fInfo|;..TEHan|
|00005ae0| 64 6c 65 20 74 68 65 54 | 45 2c 20 74 65 6d 70 54 |dle theT|E, tempT|
|00005af0| 45 3b 0d 09 48 61 6e 64 | 6c 65 20 74 65 6d 70 48 |E;..Hand|le tempH|
|00005b00| 61 6e 64 6c 65 3b 0d 09 | 6c 6f 6e 67 20 6c 6f 6e |andle;..|long lon|
|00005b10| 67 48 65 69 67 68 74 3b | 0d 0d 09 77 53 74 61 74 |gHeight;|...wStat|
|00005b20| 65 20 3d 20 28 57 53 74 | 61 74 65 44 61 74 61 2a |e = (WSt|ateData*|
|00005b30| 2a 29 28 28 57 69 6e 64 | 6f 77 50 65 65 6b 29 77 |*)((Wind|owPeek)w|
|00005b40| 69 6e 64 29 2d 3e 64 61 | 74 61 48 61 6e 64 6c 65 |ind)->da|taHandle|
|00005b50| 3b 0d 09 69 66 20 28 7a | 6f 6f 6d 44 69 72 20 3d |;..if (z|oomDir =|
|00005b60| 3d 20 69 6e 5a 6f 6f 6d | 4f 75 74 29 20 7b 0d 09 |= inZoom|Out) {..|
|00005b70| 09 69 6e 66 6f 20 3d 20 | 28 54 57 69 6e 64 6f 77 |.info = |(TWindow|
|00005b80| 2a 2a 29 47 65 74 57 52 | 65 66 43 6f 6e 28 77 69 |**)GetWR|efCon(wi|
|00005b90| 6e 64 29 3b 0d 09 09 47 | 65 74 46 6f 6e 74 49 6e |nd);...G|etFontIn|
|00005ba0| 66 6f 28 26 66 49 6e 66 | 6f 29 3b 0d 09 09 6c 69 |fo(&fInf|o);...li|
|00005bb0| 6e 65 48 65 69 67 68 74 | 20 3d 20 66 49 6e 66 6f |neHeight| = fInfo|
|00005bc0| 2e 6c 65 61 64 69 6e 67 | 20 2b 20 66 49 6e 66 6f |.leading| + fInfo|
|00005bd0| 2e 61 73 63 65 6e 74 20 | 2b 20 66 49 6e 66 6f 2e |.ascent |+ fInfo.|
|00005be0| 64 65 73 63 65 6e 74 3b | 0d 09 09 74 68 65 54 45 |descent;|...theTE|
|00005bf0| 20 3d 20 28 2a 2a 69 6e | 66 6f 29 2e 74 68 65 54 | = (**in|fo).theT|
|00005c00| 45 3b 0d 09 09 0d 09 09 | 77 69 64 74 68 20 3d 20 |E;......|width = |
|00005c10| 37 35 2a 43 68 61 72 57 | 69 64 74 68 28 27 61 27 |75*CharW|idth('a'|
|00005c20| 29 20 2b 20 32 2a 6b 54 | 65 78 74 4d 61 72 67 69 |) + 2*kT|extMargi|
|00005c30| 6e 20 2b 20 31 38 3b 0d | 09 09 69 66 20 28 77 69 |n + 18;.|..if (wi|
|00005c40| 64 74 68 20 3c 20 6b 4d | 69 6e 57 69 6e 64 6f 77 |dth < kM|inWindow|
|00005c50| 57 69 64 74 68 29 20 77 | 69 64 74 68 20 3d 20 6b |Width) w|idth = k|
|00005c60| 4d 69 6e 57 69 6e 64 6f | 77 57 69 64 74 68 3b 0d |MinWindo|wWidth;.|
|00005c70| 09 09 0d 09 09 43 61 6c | 63 75 6c 61 74 65 5a 6f |.....Cal|culateZo|
|00005c80| 6f 6d 52 65 63 74 28 77 | 69 6e 64 2c 20 77 69 64 |omRect(w|ind, wid|
|00005c90| 74 68 2c 20 30 78 37 66 | 66 66 2c 20 26 7a 6f 6f |th, 0x7f|ff, &zoo|
|00005ca0| 6d 52 65 63 74 2c 20 67 | 50 72 65 66 73 2e 64 6f |mRect, g|Prefs.do|
|00005cb0| 6e 74 43 6f 76 65 72 46 | 69 6e 64 65 72 49 63 6f |ntCoverF|inderIco|
|00005cc0| 6e 73 29 3b 0d 09 09 53 | 65 74 52 65 63 74 28 26 |ns);...S|etRect(&|
|00005cd0| 72 2c 20 30 2c 20 30 2c | 20 7a 6f 6f 6d 52 65 63 |r, 0, 0,| zoomRec|
|00005ce0| 74 2e 72 69 67 68 74 20 | 2d 20 7a 6f 6f 6d 52 65 |t.right |- zoomRe|
|00005cf0| 63 74 2e 6c 65 66 74 20 | 2d 20 31 35 20 2d 20 32 |ct.left |- 15 - 2|
|00005d00| 2a 6b 54 65 78 74 4d 61 | 72 67 69 6e 2c 20 30 78 |*kTextMa|rgin, 0x|
|00005d10| 37 66 66 66 29 3b 0d 09 | 09 74 65 6d 70 54 45 20 |7fff);..|.tempTE |
|00005d20| 3d 20 54 45 4e 65 77 28 | 26 72 2c 20 26 72 29 3b |= TENew(|&r, &r);|
|00005d30| 0d 09 09 74 65 6d 70 48 | 61 6e 64 6c 65 20 3d 20 |...tempH|andle = |
|00005d40| 28 2a 2a 74 65 6d 70 54 | 45 29 2e 68 54 65 78 74 |(**tempT|E).hText|
|00005d50| 3b 0d 09 09 28 2a 2a 74 | 65 6d 70 54 45 29 2e 68 |;...(**t|empTE).h|
|00005d60| 54 65 78 74 20 3d 20 28 | 2a 2a 74 68 65 54 45 29 |Text = (|**theTE)|
|00005d70| 2e 68 54 65 78 74 3b 0d | 09 09 54 45 43 61 6c 54 |.hText;.|..TECalT|
|00005d80| 65 78 74 28 74 65 6d 70 | 54 45 29 3b 0d 09 09 6c |ext(temp|TE);...l|
|00005d90| 6f 6e 67 48 65 69 67 68 | 74 20 3d 20 28 6c 6f 6e |ongHeigh|t = (lon|
|00005da0| 67 29 54 45 53 63 72 6f | 6c 6c 4e 75 6d 54 45 4c |g)TEScro|llNumTEL|
|00005db0| 69 6e 65 73 28 74 65 6d | 70 54 45 29 20 2a 20 28 |ines(tem|pTE) * (|
|00005dc0| 6c 6f 6e 67 29 6c 69 6e | 65 48 65 69 67 68 74 3b |long)lin|eHeight;|
|00005dd0| 0d 09 09 6c 6f 6e 67 48 | 65 69 67 68 74 20 2b 3d |...longH|eight +=|
|00005de0| 20 28 2a 2a 69 6e 66 6f | 29 2e 70 61 6e 65 6c 48 | (**info|).panelH|
|00005df0| 65 69 67 68 74 20 2b 20 | 31 35 20 2b 20 32 2a 6b |eight + |15 + 2*k|
|00005e00| 54 65 78 74 4d 61 72 67 | 69 6e 3b 0d 09 09 28 2a |TextMarg|in;...(*|
|00005e10| 2a 74 65 6d 70 54 45 29 | 2e 68 54 65 78 74 20 3d |*tempTE)|.hText =|
|00005e20| 20 74 65 6d 70 48 61 6e | 64 6c 65 3b 0d 09 09 54 | tempHan|dle;...T|
|00005e30| 45 44 69 73 70 6f 73 65 | 28 74 65 6d 70 54 45 29 |EDispose|(tempTE)|
|00005e40| 3b 0d 09 09 69 66 20 28 | 6c 6f 6e 67 48 65 69 67 |;...if (|longHeig|
|00005e50| 68 74 20 3e 20 30 78 37 | 66 66 66 29 20 7b 0d 09 |ht > 0x7|fff) {..|
|00005e60| 09 09 68 65 69 67 68 74 | 20 3d 20 30 78 37 66 66 |..height| = 0x7ff|
|00005e70| 66 3b 0d 09 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |f;...} e|lse {...|
|00005e80| 09 68 65 69 67 68 74 20 | 3d 20 6c 6f 6e 67 48 65 |.height |= longHe|
|00005e90| 69 67 68 74 3b 0d 09 09 | 09 6d 69 6e 48 65 69 67 |ight;...|.minHeig|
|00005ea0| 68 74 20 3d 20 4d 69 6e | 48 65 69 67 68 74 28 77 |ht = Min|Height(w|
|00005eb0| 69 6e 64 29 3b 0d 09 09 | 09 69 66 20 28 68 65 69 |ind);...|.if (hei|
|00005ec0| 67 68 74 20 3c 20 6d 69 | 6e 48 65 69 67 68 74 29 |ght < mi|nHeight)|
|00005ed0| 20 68 65 69 67 68 74 20 | 3d 20 6d 69 6e 48 65 69 | height |= minHei|
|00005ee0| 67 68 74 3b 0d 09 09 7d | 0d 09 09 0d 09 09 43 61 |ght;...}|......Ca|
|00005ef0| 6c 63 75 6c 61 74 65 5a | 6f 6f 6d 52 65 63 74 28 |lculateZ|oomRect(|
|00005f00| 77 69 6e 64 2c 20 77 69 | 64 74 68 2c 20 68 65 69 |wind, wi|dth, hei|
|00005f10| 67 68 74 2c 20 26 7a 6f | 6f 6d 52 65 63 74 2c 20 |ght, &zo|omRect, |
|00005f20| 67 50 72 65 66 73 2e 64 | 6f 6e 74 43 6f 76 65 72 |gPrefs.d|ontCover|
|00005f30| 46 69 6e 64 65 72 49 63 | 6f 6e 73 29 3b 0d 09 09 |FinderIc|ons);...|
|00005f40| 68 65 69 67 68 74 20 3d | 20 7a 6f 6f 6d 52 65 63 |height =| zoomRec|
|00005f50| 74 2e 62 6f 74 74 6f 6d | 20 2d 20 7a 6f 6f 6d 52 |t.bottom| - zoomR|
|00005f60| 65 63 74 2e 74 6f 70 3b | 0d 09 09 46 69 78 48 65 |ect.top;|...FixHe|
|00005f70| 69 67 68 74 28 77 69 6e | 64 2c 20 26 68 65 69 67 |ight(win|d, &heig|
|00005f80| 68 74 29 3b 0d 09 09 7a | 6f 6f 6d 52 65 63 74 2e |ht);...z|oomRect.|
|00005f90| 62 6f 74 74 6f 6d 20 3d | 20 7a 6f 6f 6d 52 65 63 |bottom =| zoomRec|
|00005fa0| 74 2e 74 6f 70 20 2b 20 | 68 65 69 67 68 74 3b 0d |t.top + |height;.|
|00005fb0| 09 09 28 2a 2a 77 53 74 | 61 74 65 29 2e 73 74 64 |..(**wSt|ate).std|
|00005fc0| 53 74 61 74 65 20 3d 20 | 7a 6f 6f 6d 52 65 63 74 |State = |zoomRect|
|00005fd0| 3b 0d 09 09 69 66 20 28 | 57 69 6e 64 52 65 63 74 |;...if (|WindRect|
|00005fe0| 45 71 75 61 6c 52 65 63 | 74 28 77 69 6e 64 2c 20 |EqualRec|t(wind, |
|00005ff0| 26 7a 6f 6f 6d 52 65 63 | 74 29 29 20 72 65 74 75 |&zoomRec|t)) retu|
|00006000| 72 6e 20 6e 6f 45 72 72 | 3b 0d 09 7d 0d 09 0d 09 |rn noErr|;..}....|
|00006010| 45 72 61 73 65 52 65 63 | 74 28 26 77 69 6e 64 2d |EraseRec|t(&wind-|
|00006020| 3e 70 6f 72 74 52 65 63 | 74 29 3b 0d 09 5a 6f 6f |>portRec|t);..Zoo|
|00006030| 6d 57 69 6e 64 6f 77 28 | 77 69 6e 64 2c 20 7a 6f |mWindow(|wind, zo|
|00006040| 6f 6d 44 69 72 2c 20 66 | 61 6c 73 65 29 3b 0d 09 |omDir, f|alse);..|
|00006050| 52 65 73 69 7a 65 43 6f | 6e 74 65 6e 74 73 28 77 |ResizeCo|ntents(w|
|00006060| 69 6e 64 29 3b 0d 09 72 | 65 74 75 72 6e 20 6e 6f |ind);..r|eturn no|
|00006070| 45 72 72 3b 0d 7d 0d 0d | 0d 0d 2f 2a 2d 2d 2d 2d |Err;.}..|../*----|
|00006080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000060a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000060b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000060c0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 43 6f 6d 6d 61 6e |--------|..Comman|
|000060d0| 64 20 0d 09 0d 09 48 61 | 6e 64 6c 65 20 61 20 63 |d ....Ha|ndle a c|
|000060e0| 6f 6d 6d 61 6e 64 20 66 | 6f 72 20 61 20 74 65 78 |ommand f|or a tex|
|000060f0| 74 20 77 69 6e 64 6f 77 | 2e 0d 09 09 09 0d 09 45 |t window|.......E|
|00006100| 6e 74 72 79 3a 09 77 69 | 6e 64 20 3d 20 70 6f 69 |ntry:.wi|nd = poi|
|00006110| 6e 74 65 72 20 74 6f 20 | 74 65 78 74 20 77 69 6e |nter to |text win|
|00006120| 64 6f 77 2e 0d 09 09 09 | 6d 65 6e 75 20 3d 20 74 |dow.....|menu = t|
|00006130| 68 65 20 6d 65 6e 75 2e | 0d 09 09 09 69 74 65 6d |he menu.|....item|
|00006140| 20 3d 20 74 68 65 20 69 | 74 65 6d 2e 0d 09 09 09 | = the i|tem.....|
|00006150| 6d 6f 64 69 66 69 65 72 | 73 20 3d 20 6d 6f 64 69 |modifier|s = modi|
|00006160| 66 69 65 72 73 20 66 69 | 65 6c 64 20 66 72 6f 6d |fiers fi|eld from|
|00006170| 20 65 76 65 6e 74 20 72 | 65 63 6f 72 64 2e 0d 09 | event r|ecord...|
|00006180| 0d 09 45 78 69 74 3a 09 | 66 75 6e 63 74 69 6f 6e |..Exit:.|function|
|00006190| 20 72 65 73 75 6c 74 20 | 3d 20 65 72 72 6f 72 20 | result |= error |
|000061a0| 63 6f 64 65 2e 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |code..--|--------|
|000061b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000061c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000061d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000061e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000061f0| 2d 2d 2a 2f 0d 0d 73 74 | 61 74 69 63 20 4f 53 45 |--*/..st|atic OSE|
|00006200| 72 72 20 43 6f 6d 6d 61 | 6e 64 20 28 57 69 6e 64 |rr Comma|nd (Wind|
|00006210| 6f 77 50 74 72 20 77 69 | 6e 64 2c 20 73 68 6f 72 |owPtr wi|nd, shor|
|00006220| 74 20 6d 65 6e 75 2c 20 | 73 68 6f 72 74 20 69 74 |t menu, |short it|
|00006230| 65 6d 2c 20 73 68 6f 72 | 74 20 6d 6f 64 69 66 69 |em, shor|t modifi|
|00006240| 65 72 73 29 0d 7b 0d 09 | 4f 53 45 72 72 20 65 72 |ers).{..|OSErr er|
|00006250| 72 20 3d 20 6e 6f 45 72 | 72 3b 0d 0d 09 73 77 69 |r = noEr|r;...swi|
|00006260| 74 63 68 20 28 6d 65 6e | 75 29 20 7b 0d 09 0d 09 |tch (men|u) {....|
|00006270| 09 63 61 73 65 20 6b 46 | 69 6c 65 4d 65 6e 75 3a |.case kF|ileMenu:|
|00006280| 0d 09 09 0d 09 09 09 73 | 77 69 74 63 68 20 28 69 |.......s|witch (i|
|00006290| 74 65 6d 29 20 7b 0d 09 | 09 09 09 63 61 73 65 20 |tem) {..|...case |
|000062a0| 6b 53 61 76 65 49 74 65 | 6d 3a 0d 09 09 09 09 09 |kSaveIte|m:......|
|000062b0| 65 72 72 20 3d 20 44 6f | 53 61 76 65 28 77 69 6e |err = Do|Save(win|
|000062c0| 64 2c 20 6d 6f 64 69 66 | 69 65 72 73 29 3b 0d 09 |d, modif|iers);..|
|000062d0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 63 |....brea|k;.....c|
|000062e0| 61 73 65 20 6b 53 61 76 | 65 41 73 49 74 65 6d 3a |ase kSav|eAsItem:|
|000062f0| 0d 09 09 09 09 09 65 72 | 72 20 3d 20 44 6f 53 61 |......er|r = DoSa|
|00006300| 76 65 41 73 28 77 69 6e | 64 2c 20 6d 6f 64 69 66 |veAs(win|d, modif|
|00006310| 69 65 72 73 29 3b 0d 09 | 09 09 09 09 62 72 65 61 |iers);..|....brea|
|00006320| 6b 3b 0d 09 09 09 09 63 | 61 73 65 20 6b 50 72 69 |k;.....c|ase kPri|
|00006330| 6e 74 49 74 65 6d 3a 0d | 09 09 09 09 09 65 72 72 |ntItem:.|.....err|
|00006340| 20 3d 20 44 6f 50 72 69 | 6e 74 28 77 69 6e 64 2c | = DoPri|nt(wind,|
|00006350| 20 6d 6f 64 69 66 69 65 | 72 73 29 3b 0d 09 09 09 | modifie|rs);....|
|00006360| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 7d 0d 09 09 |..break;|....}...|
|00006370| 09 62 72 65 61 6b 3b 0d | 09 09 09 0d 09 09 63 61 |.break;.|......ca|
|00006380| 73 65 20 6b 45 64 69 74 | 4d 65 6e 75 3a 0d 0d 09 |se kEdit|Menu:...|
|00006390| 09 09 73 77 69 74 63 68 | 20 28 69 74 65 6d 29 20 |..switch| (item) |
|000063a0| 7b 0d 09 09 09 09 63 61 | 73 65 20 6b 43 6f 70 79 |{.....ca|se kCopy|
|000063b0| 49 74 65 6d 3a 0d 09 09 | 09 09 09 44 6f 43 6f 70 |Item:...|...DoCop|
|000063c0| 79 28 77 69 6e 64 29 3b | 0d 09 09 09 09 09 62 72 |y(wind);|......br|
|000063d0| 65 61 6b 3b 0d 09 09 09 | 09 63 61 73 65 20 6b 53 |eak;....|.case kS|
|000063e0| 65 6c 65 63 74 41 6c 6c | 49 74 65 6d 3a 0d 09 09 |electAll|Item:...|
|000063f0| 09 09 09 44 6f 53 65 6c | 65 63 74 41 6c 6c 28 77 |...DoSel|ectAll(w|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.